Sub Calcul()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'active le calcul manuel dans les options d'Excel
Dim Onglet(4)
Onglet(2) = "1"
Onglet(3) = "2"
Onglet(4) = "3"
For x = 2 To 2
For i = 11 To 18
For j = 5 To 11
Worksheets(Onglet(x)).Cells(i, j).FormulaR1C1 = "=SUMPRODUCT(N(UO!R7C2:R8000C2=R4C)*(UO!R7C9:R8000C9=RC4)*(UO!R7C13:R8000C13))*R5C"
Next j
Next i
Next x
End Sub