Bonsoir Acturis
, le Forum
Ici si possible met la formule
.Cells(5, 19).FormulaR1C1 = "=IF(RC[-17]="""","""",VLOOKUP(RC[-17],Data!C[-18]:C[9],28,FALSE))"
Ensuite
.Cells(5, 19).Copy .Cells(6, 19)
.Range("P6").AutoFill .Range("P6:505"), Type:=xlFillDefault