Dim iDABIL As Long
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
For iDABIL = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
With Range("A" & iDABIL)
Sheets("Synthese").Select
Range("A1").Select
.Offset(, 0).FormulaR1C1 = "=TriBrutDA!RC[1]"
'Lire cellule d'arrivée de la feuille choisie = RECHERCHE (feuille de depart!N°de col d'arrivée + diff de N° de col depart, plage de correspondance, .....)
.Offset(, 1).FormulaR1C1 = "=VLOOKUP(DonneesBrut!RC[4],fab!R3C10:R7C11,2,0)"
.Offset(, 2).FormulaR1C1 = "=VLOOKUP(DonneesBrut!RC[4],fab!R3C10:R7C11,2,0)"
.Offset(, 3).FormulaR1C1 = "=VLOOKUP(DonneesBrut!RC[4],fab!R3C10:R7C11,2,0)"
.Offset(, 4).FormulaR1C1 = "=VLOOKUP(DonneesBrut!RC[4],fab!R3C10:R7C11,2,0)"
.Offset(, 5).FormulaR1C1 = "=VLOOKUP(DonneesBrut!RC[4],fab!R3C10:R7C11,2,0)"
.Offset(, 6).FormulaR1C1 = "=VLOOKUP(DonneesBrut!RC[4],fab!R3C10:R7C11,2,0)"
.Offset(, 7).FormulaR1C1 = "=VLOOKUP(DonneesBrut!RC[4],fab!R3C10:R7C11,2,0)"
.Offset(, 8).FormulaR1C1 = "=VLOOKUP(DonneesBrut!RC[4],fab!R3C10:R7C11,2,0)"
End With
Next iDABIL
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With