Macro boucle for next trop lente

[6tm]

Salut!
Quelqu'un pourrait il m'aider a ameliorer cette macro qui utilise une boucle for next et qui tourne de facon trop lente.
Merci d'avance


Sub calcul()
For i = 22 To 73
Sheets("Control").Range("O" & i).FormulaLocal = "=INDIRECT(RC[-1]&""BudgetP1"")"
Sheets("Control").Range("S" & i).FormulaLocal = "=INDIRECT(RC[-5]&""BudgetP2"")"
Sheets("Control").Range("W" & i).FormulaLocal = "=INDIRECT(RC[-9]&""BudgetP3"")"
Sheets("Control").Range("AA" & i).FormulaLocal = "=INDIRECT(RC[-13]&""BudgetP4"")"
Next i
For j = 78 To 129
Sheets("Control").Range("O" & j).FormulaLocal = "=INDIRECT(RC[-1]&""BudgetP5"")"
Sheets("Control").Range("S" & j).FormulaLocal = "=INDIRECT(RC[-5]&""BudgetP6"")"
Sheets("Control").Range("W" & j).FormulaLocal = "=INDIRECT(RC[-9]&""BudgetP7"")"
Sheets("Control").Range("AA" & j).FormulaLocal = "=INDIRECT(RC[-13]&""BudgetP8"")"
Next j
End Sub

 

[flyonets44]

Re : Macro boucle for next trop lente

Bonjour
un bout de solution
sub Faster
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
call sub calcul
Application.Calculation = xlCalculationAutomatic
end sub
Cordialement
Flyonets