recup fichier bis

[loloman]

merci a tous pour votre aide mais j'ai encore un petit pb lorsque j'excute cette macro j'ai un pb avec Sheets("Accueil") la macro se bloque j'ai essayer de nommer la feuille sur laquelle j'excute cette macro (Accueil) mais cela ne change rien
pourriez vous svp m'aidez de nouveau
merci

Sub Recuperer_fichier_texte()

Dim I As Byte

Chemin = "C:\"

With Application.FileSearch
.NewSearch
.FileName = "*.txt"
.LookIn = Chemin
.SearchSubFolders = False
.Execute

If .FoundFiles.Count <> 0 Then
With .FoundFiles
Sheets("Accueil").ListBox1.Clear
For I = 1 To .Count
Sheets("Accueil").ListBox1.AddItem .Item(I)
Next I
End With

Else

MsgBox "Aucun fichier trouvé dans l'arborescence " & Chemin
Exit Sub

End If

End With

End Sub