Re steph,
Alors utilise la macro de sousou en enlevant la ligne suivante :
If Format(Now, "hh:mm") > "16:32" Then Exit Sub
Ce qui donne :
Sub h()
Application.OnTime Now + TimeValue("00:00:01"), "hel"
End Sub
Sub hel()
Range("a1") = Time()
Application.OnTime Now + TimeValue("00:00:01"), "hel"
End Sub
J'ai modifié le délai à "00:00:01" pour que la mise à jour se fasse toutes les secondes.
Bonne soirée.
José