Public Sub MAJHorloge()
'Programmation de l'évènement toutes les secondes
Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "MAJHorloge"
'MAJ de l'horloge
ThisWorkbook.Sheets(1).Shapes("Horloge").TextFrame.Characters.Text = Format(Now, "hh:mm:ss")
[COLOR="Blue"][B]If Range("D13").Value <= Time + TimeValue("01:00:00") Then Range("D13").Interior.ColorIndex = 3[/B][/COLOR]
End Sub