Bonjour,
voici un début de piste pour lire le fichier texte,
sélectionner une nouvelle feuille avant d'exécuter la macro
Sub LireTxT()
Dim ff As Integer, lignes() As String, Temp As String, i As Integer
ff = FreeFile
Fichier = "C:\Users\isabelle\Documents\test5\Exemple.txt" 'à adapter
Open Fichier For Binary As #ff
Temp = String(FileLen(Fichier), " ")
Get #ff, , Temp ' Récupère tout le fichier
Close #ff
lignes = Split(Temp, vbCrLf)
For i = LBound(lignes) + 1 To UBound(lignes)
On Error Resume Next
Range("A" & i).Value = lignes(i)
Next
n = Cells(Rows.Count, 1).End(xlUp).Row
'convertir en colonne
Range("A1:A" & n).TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
OtherChar:=" ", FieldInfo:=Array(Array(0, 1), Array(38, 1), Array(48, 1), Array(66, 1)), TrailingMinusNumbers:=True
End Sub