'Modèle de Timer pour mesurer le temps d'exécution d'une macro en heures, minutes, secondes et centièmes :
Public Sub TheBigBoucle3()
Dim TheTime(1 To 4) As Long, TheTimerStart As Double, TheTimerStop As Double
Dim Message As String
Dim i As Byte, y As Integer
TheTimerStart = Timer
'Mettre le code à exécuter et dont on mesure le temps d'exécution ici
TheTimerStop = Timer - TheTimerStart
If TheTimerStop < 0 Then TheTimerStop = TheTimerStop + 86400 'si déroulement à 0:00
TheTime(1) = Fix(TheTimerStop / 3600)
TheTime(2) = Fix((TheTimerStop - (TheTime(1) * 3600)) / 60)
TheTime(3) = Fix(TheTimerStop - ((TheTime(1) * 3600) + (TheTime(2) * 60)))
TheTime(4) = CInt((TheTimerStop - Fix(TheTimerStop)) * 100)
Dim Temps_Ecoule As String
Temps_Ecoule = Right("0" & TheTime(1), 2) & ":" & Right("0" & TheTime(2), 2) & ":" & Right("0" & TheTime(3), 2) & ":" & Right("0" & TheTime(4), 2)
Message = "Macro exécutée en " & Right("0" & TheTime(1), 2) & " heures, " & Right("0" & TheTime(2), 2) & " minutes, " _
& Right("0" & TheTime(3), 2) & " secondes et " & Right("0" & TheTime(4), 2) & " centièmes de secondes. " _
& vbCrLf & vbCrLf & "Durée d'exécution (hh:mm:ss:cc) = " & Right("0" & TheTime(1), 2) & ":" & Right("0" & TheTime(2), 2) & ":" & Right("0" & TheTime(3), 2) & ":" & Right("0" & TheTime(4), 2)
Message = InputBox(Message, "Mesure du temps d'exécution de la macro", Temps_Ecoule)
End Sub