Lecture d’un fichier ligne par ligne

 

Retourne un tableau de ligne, il suffira de faire une boucle sur 
l’objet ReadFileLine pour lire les ligne une a une

Function ReadFileLine(myFile)
  On error resume Next
  Dim objFSO, strData, strLine, arrLines
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  strData = objFSO.OpenTextFile(myFile,1).ReadAll
  arrLines = Split(strData,vbCrLf)
  ReadFileLine = arrLines
end Function