Sub Macro1()
Dim i As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = 3 To 941
''formule Number C3
Range("C" & i).FormulaR1C1 = "=IF(RC[-1]="""","""",IF(ISNA(VLOOKUP(RC[-1],Tableau,2,FALSE)),""0"",VLOOKUP(RC[-1],Tableau,2,FALSE)))"
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub