Public ProchainChrono, Départ
Sub Demarre()
Départ = Timer()
majChrono
End Sub
Sub majChrono()
Sheets("Chrono").[A1] = Format((Timer() - Départ) / 3600 / 24, "hh:mm:ss")
ProchainChrono = Now + TimeValue("00:00:1")
Application.OnTime ProchainChrono, "majChrono"
End Sub
Sub Arret()
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono", Schedule:=False
End Sub