Recherche cellule

Bonjour, sur un autre forum j'ai posé la question comment rechercher une cellule dans excell par son format
j'ai eu une réponse qui marche très bien sous excell 2007, mais pas dans excell 2003
voici la macro :

Dim Rg As Range
Dim LeCellFormat As CellFormat

Set LeCellFormat = Application.FindFormat
'Détermine les caractéristiques du format de cellule recherché.
With LeCellFormat
.Clear 'S'assurer d'effacer les critères des anciennes recherches
.Interior.Color = vbYellow
'La liste pourrait être plus longue ...
End With

'Détermine la plage de cellules où s'effectue la recherche
With Worksheets("Feuil1")
Set Rg = .Range("e2:e15")
End With

'Trouve la cellule ayant le bon format pour
'y effectuer une ou plusieurs opérations
With Rg
Set C = .Find(What:="", SearchFormat:=True)
If Not C Is Nothing Then
adr = C.Address
Do
'Le code que tu veux exécuter avec la cellule trouvée
C.Select
'pour passer à la cellule suivante ...
Set C = .Find(What:="", after:=ActiveCell, SearchFormat:=True)
Loop Until C.Address = adr
End If
End With

alors dans un premier temps elle plante sur

LeCellFormat As CellFormat
et si je shunte cette ligne elle plante plus loin sur
SearchFormat:=True)

pourquoi ceci et Comment remédier à ce problème
je vous remercie d'avance