Sub Mesure_temps()
' Paramètres
Dim temps As Double
' Initialisation : début de la mesure
temps = Timer
' Code à tester
'...
Dim i As Long
For i = 1 To 100000
DoEvents
Next i
'...
' Affichage : fin de la mesure
MsgBox "Temps :" & Timer - temps & " secondes"
End Sub