XL 2016 Gestion fichier texte

Sub fso_lire_donnees_txt()

' Lire les données à partir du mot "Calcul"

Dim fso As FileSystemObject
Dim fichier_txt As TextStream

On Error GoTo gestion_erreur

Set fso = New FileSystemObject

' Ouverture du fichier répertoire fichier Excel en mode lecture
Set fichier_txt = fso.OpenTextFile(ThisWorkbook.Path & "\export.txt", ForReading)
    
    ' Boucle tant que fin du fichier non atteint
    Do While Not fichier_txt.AtEndOfStream
    
    ' Si ligne lue = mot "Calcul"' 
    If fichier_txt.ReadLine = "Calcul" Then
        
       ' Boucle jusqu'à fin de fichier
        Do While Not fichier_txt.AtEndOfStream
        
       ' Traitement
        MsgBox fichier_txt.ReadLine

        Loop
    End If
    
    Loop

fichier_txt.Close

Set fichier_txt = Nothing
Set fso = Nothing

Exit Sub

gestion_erreur:

MsgBox ("Le fichier n'existe pas"), vbCritical
End Sub