Sub FR_PRChg()
Dim i As Long, x As Long, DerLig_f1 As Long, DerLig_f2 As Long
Dim f1 As Worksheet, f2 As Worksheet
Application.ScreenUpdating = False
Set f1 = Sheets("SAP")
Set f2 = Sheets("PR_Chg")
DerLig_f1 = f1.Range("A" & Rows.Count).End(xlUp).Row
DerLig_f2 = f2.Range("A" & Rows.Count).End(xlUp).Row
For i = 3 To DerLig_f2
For x = 8 To 19
If f2.Cells(i, 1) <> "" Then
f2.Cells(i, 7) = WorksheetFunction.SumIfs(f1.Range("H2:H" & DerLig_f1), _
f1.Range("E2:E" & DerLig_f1), f2.Cells(i, 5), _
f1.Range("G2:G" & DerLig_f1), "P.V.", _
f1.Range("A2:A" & DerLig_f1), Cells(i, 1), _
f1.Range("C2:C" & DerLig_f1), Cells(i, 3), _
f1.Range("F2:F" & DerLig_f1), f2.Cells(i, 6))
'Range("I:I") à automatiser
f2.Cells(i, x) = WorksheetFunction.SumIfs(f1.Range("I2:I" & DerLig_f1), _
f1.Range("E2:E" & DerLig_f1), f2.Cells(i, 5), _
f1.Range("G2:G" & DerLig_f1), "marque", _
f1.Range("A2:A" & DerLig_f1), Cells(i, 1), _
f1.Range("C2:C" & DerLig_f1), Cells(i, 3), _
f1.Range("F2:F" & DerLig_f1), f2.Cells(i, 6))
f2.Cells(i, 20) = WorksheetFunction.Sum(f2.Range(f2.Cells(i, 8), f2.Cells(i, 19)))
End If
Next x
Next i
Set f1 = Nothing
Set f2 = Nothing
End Sub