[=Maintenant] Une Boucle en continue ?

Dim bstop As Boolean
Dim HeureProchainAppel

Private Sub Workbook_BeforeClose(Cancel As Boolean)
bstop = True
HorlogeEnA1
End Sub
Private Sub Workbook_Open()
HorlogeEnA1
End Sub
Sub HorlogeEnA1()
If bstop = True Then
'Annuler le paramétrage du OnTime programmé précédemment.
Application.OnTime EarliestTime:=HeureProchainAppel, _
Procedure:="ThisWorkbook.HorlogeEnA1", Schedule:=False
Exit Sub
End If

Sheets("Tempo").Range("H12").Value = Format(Now, "HH:MM:SS")

'Nouveau paramétrage de OnTime
HeureProchainAppel = Now + TimeValue("00:00:01")
Application.OnTime HeureProchainAppel, "ThisWorkbook.HorlogeEnA1", False

End Sub

Cliquez pour agrandir...