Importation d'un fichier de type texte

Dim Valeur As Long
Dim Cible As String, Fichier As String
Dim i As Integer, j As Integer, k As Integer, x As Integer
Dim Tableau() As String, TabVal() As String
 
Fichier = "C:\dossier\txt.1.0122"
 
'Récupère le contenu du fichier
Open Fichier For Input As #1
    Valeur = FileLen(Fichier)
    Cible = Input(Valeur, 1)
Close #1
 
    'Découpe le fichier en fonction des retours vbLf
    Tableau = Split(Cible, vbLf)
 
    'Boucle sur le tableau
    For i = 0 To UBound(Tableau)
        'Recherche les entêtes
        If Tableau(i) Like "$[A-Z]$*" Then
            j = j + 1
            'Ecrit les entetes dans la feuille
            Cells(1, j) = Mid(Tableau(i), 2, 1)
            x = 2
        End If
 
        'Découpe les chaines en fonction du séparateur "virgule" ,
        TabVal = Split(Tableau(i), ",")
 
        'Vérifie si le tableau contient des données numériques
        If IsNumeric(TabVal(0)) Then
            For k = 0 To UBound(TabVal)
                If TabVal(k) <> "" Then
                    'Ecrit les données à la suite de l'entete,
                    'dans la colonne.
                    Cells(x, j) = TabVal(k)
                    x = x + 1
                End If
            Next k
        End If
    Next