Bonsoir Chris, le Forum.
Le code suivant te donnera le même résultat sans interruption impromptue :
Dim Temps As Date '==> Déclaration au niveau module
Sub Horloge()
Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "Horloge", , True
If Range("A5") = 1 Then ArretHorloge
Range("E2") = Time
End Sub
Sub ArretHorloge()
Application.OnTime Temps, "Horloge", , False
End Sub
Cordialement,
Didier_mDF