Bonsoir Dranreb,
Et Merci à toi. Cela Marche mais avec un ajustement:
Dans ThisWorkbook:
Private Sub Workbook_Open()
Tempo
Application.OnTime Now + TimeValue("00:00:05"), "Prog"
End Sub
puis dans un module:
Option Explicit
Dim Tps As Date
Sub Tempo()
'Programmation de l'évènement toutes les secondes
Tps = Now + TimeValue("00:00:01")
Application.OnTime Tps, "Tempo"
'Traitement optionnel
Sheets("F1").Range("A1").Value = Format(Now, "hh:nn:ss")
End Sub
Sub Stop_Tempo()
On Error Resume Next
'Stop la gestion de OnTime
Application.OnTime Tps, "Tempo", , False
End Sub
Tempo est nécésaire sinon le programme ne retrouve pas l'évènement.
Stop_Tempo est nécésaire pour arrète le procécus.
Merci encore à tous les deux de vous être penchez sur mon problème.