Option Explicit
Dim Temps As Date ' Doit impérativement être globale.
Sub Chrono()
Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "Chrono", Schedule:=True ' 1ere macro qui lance l'horloge
Sheets("ENJEUX").Range("O16").Value = Time
End Sub
Sub StopChrono()
Application.OnTime Temps, "Chrono", Schedule:=False
End Sub