Sub test_lire()
'ajouter la référence Microsoft Scripting Runtime
Dim oFl As Scripting.file
Dim oTxt As Scripting.TextStream
Dim i As Long, LastRow As Long, LastRow2 As Long
rep = "C:\Users\Test_fichier_texte\" 'à adapter
fich = "E1_PC_2134_ANASYN(5).txt"
Filename = rep & fich
Set oFSO = New Scripting.FileSystemObject
Set oFl = oFSO.GetFile(Filename)
Set oTxt = oFl.OpenAsTextStream(ForReading)
LastRow = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row + 1
LastRow2 = LastRow
While Not oTxt.AtEndOfStream
Debug.Print oTxt.AtEndOfStream
Range("A" & LastRow2) = oTxt.ReadLine
LastRow2 = LastRow2 + 1
Wend
Rows(LastRow & ":" & LastRow + 29).Delete Shift:=xlUp
End Sub