Demande d'optimisation d'un code VBA

Bonjour tout le monde,
qui pourrait m'aider à réduire le temps d'exécution de cette macro svp ?
Ca prend trop de temps pour s'exécuter.

Sub TurnOffStuff()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayStatusBar = False
ActiveSheet.DisplayPageBreaks = False
End Sub

Sub TurnOnStuff()
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.DisplayStatusBar = True
ActiveSheet.DisplayPageBreaks = True
End Sub

Sub somprod()
Dim i As Double
Dim plage1, plage2, plage3, plage4 As Range
Worksheets("LR ASSURVIE 2021").Activate
Call TurnOffStuff
i = 4
Set plage1 = Sheets("SINISTRES assurvie").Range("AN2:AN300000")
Set plage2 = Sheets("SINISTRES assurvie").Range("AO2:A0300000")
Set plage3 = Sheets("SINISTRES assurvie").Range("AP2:AP300000")
Set plage4 = Sheets("SINISTRES assurvie").Range("Y2:Y300000")
Do While Cells(i, 2) <> ""
Cells(i, 17).Value = Application.SumIfs(plage4, plage1, Cells(i, 4), plage2, 1, plage3, 2021)
Loop
Call TurnOnStuff
End Sub

Merci cordialement !