Dim temps
Sub majHeure()
ThisWorkbook.Sheets("pisc").[H2] = Now
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End Sub
Sub auto_open2()
majHeure
Range("G3") = ""
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:=False
Range("G3") = "L'heure est Stoppée"
End Sub