Sub Durée_B10()
Dim f$, t, i&
Application.ScreenUpdating = False
f = [B10].Formula
t = Timer
For i = 1 To 10000
[B10].Formula = f
Next
MsgBox "Durée " & Format((Timer - t) / 10, "0.00") & " millième de seconde", , "B10"
End Sub
Sub Durée_B11()
Dim f$, t, i&
Application.ScreenUpdating = False
f = [B11].Formula
t = Timer
For i = 1 To 10000
[B11].Formula = f
Next
MsgBox "Durée " & Format((Timer - t) / 10, "0.00") & " millième de seconde", , "B11"
End Sub