Extraction de données d'un fichier log

Bonjour, je n'arrive toujours pas à ouvrir mon fichier log avec cette macro et copier les données dans les feuilles excel, qui peut m'aider ?


Sub ImportFichierTexte()
Dim intL As Integer
Dim lngLigne As Long
Dim strLog As String

lngLigne = 1

' ouvrir un canal de lecture
lngl = FreeFile()

' ouvrir le fichier en lecture
Open "C:\Documents\monfichier.log" For Input As lngl 'For Input As l
Do Until EOF(l)
' importation des lignes du log
Input #lngl, strLog
Cells(lngLigne, 1) = strLog
Loop

' fermer le canal
Close #lngl

' à toi de traiter les données importer
End Sub


Cela provoque un message d'erreur à la ligne...
Do Until EOF(l)

merci pour votre aide !!!