With Application.FileSearch
.NewSearch
.RefreshScopes
.LookIn = 'unRepertoireParticulier'
.Filename = 'toto*'
.FileType = msoFileTypeExcelWorkbooks
.LastModified = msoLastModifiedLastWeek
.SearchSubFolders = False
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox 'File not found.'
End If
End With