Option Explicit
Sub Bouton1_QuandClic()
Dim rep As String, chemin As String
Dim Ligne As String, fichier As String
Dim numligne As Long, i As Byte
Dim tablo
chemin = ActiveWorkbook.Path & "\lot\" 'a adapter
fichier = Dir(chemin)
While fichier <> ""
Open chemin & fichier For Input As #1
Do While Not EOF(1)
Line Input #1, Ligne
numligne = numligne + 1
tablo = Split(Ligne, vbTab)
For i = 0 To UBound(tablo)
Cells(numligne, i + 1) = tablo(i)
Next i
Loop
Close #1
fichier = Dir
Wend
End Sub