1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
Range("E2").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-4],'Fichier Xavier'!R2C1:R15000C9,4,FALSE)"
Selection.AutoFill Destination:=Range("E2:E" & LastLigne), Type:=xlFillDefault
Range("E2:E" & LastLigne).Select
Range("F2").Select
Sheets("All CM dans SAP").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-5],'Fichier Xavier'!R2C1:R15000C9,5,FALSE)"
Range("F2").Select
Selection.AutoFill Destination:=Range("F2:F" & LastLigne)
Range("F2:F" & LastLigne).Select
Range("G2").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-6],'Fichier Xavier'!R2C1:R15000C9,9,FALSE)"
Range("G2").Select
Selection.AutoFill Destination:=Range("G2:G" & LastLigne)
Range("G2:G" & LastLigne).Select |
Partager