Public ProchainChrono
Public chrono
Sub majChrono()
temp = chrono / 3600
Sheets("Feuil1").[b5] = Format(temp / 24, "hh:mm:ss")
chrono = chrono + 1
ProchainChrono = Now + TimeValue("00:00:1")
Application.OnTime ProchainChrono, "majChrono"
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono", Schedule:=False
End Sub
Sub Démarre()
If Sheets("Feuil1").[b5].Value > 0 Then
Sheets("Feuil1").[b5].Value = 0
Exit Sub
End If
chrono = 0
majChrono
End Sub