Please Help sur VBA

Recherche de fichiers dont les noms commencent par "Fac"

Sub ChercheFichier()
Set fs = Application.FileSearch
With fs
.LookIn = "D:\Epuiset" .FileName = "Fac*"
If .Execute > 0 Then
MsgBox .FoundFiles.Count & " Fichier(s) ont été trouvés."
For I = 1 To .FoundFiles.Count
MsgBox .FoundFiles(I)
Next I
Else
MsgBox "Aucun fichier n'a été trouvé."
End If
End With
End Sub

J'ai trouvé mon bonheur sur http://dj.joss.free.fr et dans la collection de liens qu'il propose