[VBA] Importer certaines lignes, fichier log

Sub OpenFichier()
Dim fp As Integer     'pointeur vers le fichier
Dim chemin As String    'chemin du fichier et nom du fichier
Dim chaineStr As String      'Variable qui récupère le contenu d'une ligne du fichier pour le traitement

     fp = FreeFile
     chemin = "C:\temp\monfichier.log"

    On Error Resume Next
    Open chemin For Input As #fp
    While Not EOF(fp)
        Line Input #fp, chaineStr
            'code traitant le contenu de chaineStr
    Wend
    
    If Err.Number <> 0 Then
        MsgBox Err.Number & " - " & Err.Description, vbCritical, "Erreur"
        Exit Sub
    End If

End Sub