Re bonjour à tous
alors cela donne quelque chose comme cela
Cel.FormulaR1C1 = "=IF(RC[-1]="""","""", (IF(RC[-1]=""EUR"",""1"",VLOOKUP(RC[-1],Currencies!C[-65]:C[-63],3,'FALSE'))))"
ou avec A:C en absolu
Cel.FormulaR1C1 = "=IF(RC[-1]="""","""", (IF(RC[-1]=""EUR"",""1"",VLOOKUP(RC[-1],Currencies!C1:C3,3,'FALSE'))))"
Cordialement, A+