Option Explicit
Sub Test()
With Application
.ScreenUpdating = 0
.Calculation = xlCalculationManual
End With
Range("D3:G100").Formula = _
"=SUMPRODUCT((Détail!R2C22:R1000C22=RC3)*(Détail!R2C7:R1000C7=R1C1)*(Détail!R2C29:R1000C29=R1C4)*(Détail!R2C12:R1000C12=R2C))"
Range("H3:H100").Formula = "=SUM(RC[-4]:RC[-1])"
Range("I3:L100").Formula = _
"=SUMPRODUCT((Détail!R2C22:R1000C22=RC3)*(Détail!R2C7:R1000C7=R1C1)*(Détail!R2C29:R1000C29=R1C9)*(Détail!R2C12:R1000C12=R2C))"
Range("M3:M100").Formula = "=SUM(RC[-4]:RC[-1])"
Range("N3:W100").Formula = _
"=SUMPRODUCT((Détail!R2C22:R1000C22=RC3)*(Détail!R2C7:R1000C7=R1C1)*(Détail!R2C29:R1000C29=R1C14)*(Détail!R2C12:R1000C12=R2C))"
Range("X3:X100").Formula = "=SUM(RC[-10]:RC[-1])"
Range("Y3:Y100").Formula = "=RC[-17]+RC[-12]+RC[-1]"
With Application
.ScreenUpdating = 1
.Calculation = xlCalculationAutomatic
End With
Range("A1").CurrentRegion.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Range("A1").Select
Application.CutCopyMode = False
End Sub