Problème Formula VBA

Bonjour,

Je fait appel a vous et à votre génie car je ne trouve décidément pas la solution à mon problème:

J'essaye de rentré la formule suivante:

ActiveCell.Offset(0, I + 1).Range.value = "=si(esterreur(rechercheV(concatener("&C&";si("&x&"<=9;""0""&"&x"&;"&x&");"&Nb&"));donné!$A:$C;3;Faux));1;(rechercheV(concatener("&C&";si("&x&"<=9;""0""&"&x"&;"&x&");"&Nb&"));donné!$A:$C;3;Faux))"

Ou comme ceci :
ActiveCell.FormulaR1C1 = "=IF(ISERROR(VLOOKUP(CONCATENATE("&c&",IF(R[1]C"&x&"<=9,""0""&R[1]C"&x&",R[1]C"&x&"),R[-1]"&Nb&"),Donné!A1:C3,3,FALSE)),1,VLOOKUP(CONCATENATE("&c&",IF(R[1]C"&x&"<=9,""0""&R[1]C"&x&",R[1]C"&x&"),R[-1]"&Nb&"),Donné!A1:C3,3,FALSE))"

Dans les 2 cas je ne trouve ni le problème ni une solution
Merci d'avance