Option Explicit
Public tps
Sub majh()
Sheets("Feuil1").Range("A1") = Format(Now, "hh:mm:ss")
tps = Now + TimeValue("00:00:1")
Application.OnTime tps, "majh"
End Sub
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