Erreur sur formule

Bonjour a tous,

J'ai une erreur qui ce produit dans la formule suivante

Cells.Find(What:="Transport au chantier", after:=ActiveCell,
LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Select
cels2 = ActiveCell.Offset(-2, 0).Address
ActiveCell.FormulaR1C1 = "=rechercheV(" & cels2 & ";P1:S29;3;FAUX)"

L'erreur ce produit ici --> ActiveCell.FormulaR1C1 = "=rechercheV(" & cels2
& ";P1:S29;3;FAUX)"

ya un autre facon d'ecrire sa ??
le P1 a S29 reste toujour parreil
c'est le cels2 qui change a chaque fois !

quelqu'un a une solution ???

Merci de votre aide