Public Sub Chrono()
'Programmation de l'évènement toutes les secondes
Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "Chrono"
Sheets("Feuil1").Range("D20").Value = Time
If Sheets("Feuil1").Range("D29").Value = 1 Then
MsgBox ("il est temps d'aller se coucher")
Call StopChrono
Exit Sub
End If
End Sub