Re à tous
pour finir, je l'ai monté pour tester et cela donne (en gardant 1 en texte comme dans la formule du premier post)
Cel.FormulaR1C1 = "=IF(RC[-1]=" & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & ", (IF(RC[-1]=" & Chr(34) & "EUR" & Chr(34) & "," & Chr(34) & "1" & Chr(34) & ",VLOOKUP(RC[-1],Currencies!C1:C3,3,FALSE))))"
avec 1 numérique comme dans le vba du premier post
Cel.FormulaR1C1 = "=IF(RC[-1]=" & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & ", (IF(RC[-1]=" & Chr(34) & "EUR" & Chr(34) & ",1,VLOOKUP(RC[-1],Currencies!C1:C3,3,FALSE))))"
A+