Sub test()
Dim nom As String, d As Variant, n
For Each d In Array("C", "D", "F")
nom = "20 avril 2010 Résultats 1.xls"
With Application.FileSearch
.LookIn = d & ":"
.Filename = nom
.SearchSubFolders = True
n = .Execute
If n > 0 Then
MsgBox "Trouvé", vbOKOnly, "ok"
MsgBox .FoundFiles(1)
Else: MsgBox "pas trouvé", vbOKOnly, "ko"
End If
End With
Next d
End Sub