Private Sub CommandButton1_Click()
Set fichcherche = Application.FileSearch
With fichcherche
.LookIn = 'e:\\test'
.Filename = '*.txt'
If .Execute > 0 Then
For I = 1 To .FoundFiles.Count
Workbooks.OpenText Filename:=.FoundFiles(I), Comma:=True, Space:=True
Range('A1').CurrentRegion.EntireColumn.AutoFit 'la selection de ton code plantait chez moi
Next I
Else
MsgBox 'Aucun fichier n'a été trouvé.'
End If
ActiveSheet.Range('K142').Select 'sorti de la boucle car pas utile dedans.. quant à la fin.. a toi de voir...
End With
End Sub