Bonjour Florian53, bonjour le forum,
Je n'ai pas de donnée dans la feuille, ça prend donc 0,5 seconde.
Essai ainsi,
Sub Macro1()
Dim i As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = 3 To 941
''formule Number C3
Range("C" &...