copier plusieur txt en une feuille xl

Sub Bouton1_QuandClic()
Dim Chemin As String
Dim rep As String, ligne As String
Dim tablosplit
Dim tablo()
Dim x As Integer
Dim i As Byte

Chemin = ThisWorkbook.Path & '////'

rep = Dir(Chemin & '*.txt')

'boucle sur tout les fichiers txt du répertoire
While Not rep = ''

'ouvre le txt
Open rep For Input As #1
        'boucle sur chaque ligne du txt
        Do While Not EOF(1)
        Line Input #1, ligne
        'déconcatene la ligne
        tablosplit = Split(ligne, Chr(9))
        x = x + 1
        'stock la déconcaténation dans un tableau
        ReDim Preserve tablo(1 To 2, 1 To x)
        For i = 0 To UBound(tablosplit)
                tablo(i + 1, x) = tablosplit(i)
        Next i
Loop
Close #1
rep = Dir
Wend

'crée une nouvelle feuille
With Sheets.Add
        'renvoi le tableau dans la nouvelle feuille
        For i = 1 To UBound(tablo, 2)
                .Cells(i, 1) = tablo(1, i)
                .Cells(i, 2) = tablo(2, i)
        Next i
End With

End Sub

Cliquez pour agrandir...