Option Explicit
Public tps
Sub majh()
Range("A1").NumberFormat = "hh:mm:ss"
Range("A1") = Time
On Error Resume Next
Application.OnTime tps, "majh", , False 'RAZ car plusieurs lancements sont possibles
tps = Now + 1 / 86400
Application.OnTime tps, "majh"
End Sub