Bonjour i20100,
Merci pour ton aide mais ca ne fonctionne pas j'ai in message run time error '-2147467259
Sinon j'ai reussi a faire via l'enregistreur de macro en utilisant la formule ActiveCell.FormulaR1C1 = _
"=INDEX('[Exchange Rate - AEU.xlsx]2018'!R4C2:R18C13,MATCH(RC1,R4C1:R17C1,0),MATCH(R3C,R3C2:R3C13,0))"
Bonne journée et merci encore