macro 2003

Bonjour a toutes et a tous

voila cette partie de code fonctionné impecablement sur 2003, et me génère une erreur sur 2010 :
--------------------------------
Sheets("Feuil1").Cells.Delete
ActiveWorkbook.Save
Repère = Range("A1").Address
With Application.FileSearch
.LookIn = "C:\Resnet"
.FileType = msoFileTypeAllFiles
.Execute
----------------
La ligne :
With Application.FileSearch

est en jaune avec le message : Cet objet ne gère pas cette action

bien sur la macro est plus longue mais ne va pas plus loin pour le moment.

Si l'un d'entre vous connais la solution je lui en serais reconnaissant.

Cordialement
Michel