Conversion fichier texte en XLS

Bonjour à tous,

je sollicite votre aide pour convertir un fichier texte assez complexe en excel svp.

j'ai attaché ci-jointe une partie du fichier texte en question.

Merci pour votre aide.

Bonjour,

Sub lire()
Dim i%, j%
    Fichier = Application.GetOpenFilename("Fichiers texte, *.txt")
    If Fichier = False Then Exit Sub

    N = FreeFile
    Open Fichier For Input As #N

    i = 1
    Cells.ClearContents
    Do While Not EOF(1)
        Line Input #N, Contenu
        i = i + 1
        tbl = Split(Contenu, "|")
        Cells(i, 1).Resize(1, UBound(tbl) + 1) = tbl
    Loop

    Close #N

End Sub

Bonjour,

C'est bon, Merci Steelson!