Salut le forum
Merci quand même à Mytå pour le code de la macro.
En passant qui a une petite erreur (il faut écrire RC[-2] au-lieu de RC[-1])
Cells(Lig, "A") = Target.Value
Cells(Lig, "B").FormulaR1C1 = "=VLOOKUP(RC[-1],R4C27:R40C29,2,0)"
Cells(Lig, "C").FormulaR1C1 = "=VLOOKUP(RC[-2],R4C27:R40C29,3,0)"
Mytå