Equivalent instruction Filesearch pour exel 2010

Bonjour,
J'ai une macro utilisant la fonction FileSearch qui fonctionne parfaitement en version 2003 et plus en version 2010.
Pouvez vous m'indiquer un équivalent de programmation ci-dessous

7:
Set fs = Application.FileSearch
With fs
numtest = "CD-" & Affaire & "-" & Num
.LookIn = repert
.Filename = numtest
If .Execute > 0 Then
Num = Num + 1
GoTo 7
Else
Range("E19") = "CD-" & Affaire & "-" & Num
dernum = Num
End If
End With

D'avance merci
Philippe