Sub Bouton1_QuandClic()
Dim Rep As String, Chemin As String
Dim Ligne As String, Fichier As String
Dim NumLigne As Long, VCel As String
Chemin = ActiveWorkbook.Path & "\lot\" ' à adapter
NumLigne = 1
Fichier = Dir(Chemin & "*.txt")
While Fichier <> ""
Open Chemin & Fichier For Input As #1
VCel = ""
Do While Not EOF(1)
Line Input #1, Ligne
VCel = VCel & vbLf & Ligne
Loop
Close #1
NumLigne = NumLigne + 1
ActiveSheet.Cells(NumLigne, 2).Value = Mid$(VCel, 2)
Fichier = Dir
Wend
End Sub