Un timer

Dans un module tapez le code suivant :

Dim Lheure As Double
Dim Interval as Integer

Sub LancerTimer(NbS as integer)
'L'application ExecutionTimer se lancera toutes les 0 heure, 0 minute et Interval seconde
   Interval =NbS
   Application.OnTime Now + TimeSerial(0, 0,Interval ), "ExecutionTimer"
End Sub

Sub ArretTimer()
   On Error Resume Next
   Application.OnTime Lheure, "ExecutionTimer", , False
End Sub

Sub ExecutionTimer()
'code à exécuter à la fin de chaque Interval secondes

'code obligatoire
   Lheure = Now + TimeSerial(0, 0, Interval )
   Application.OnTime Lheure, "ExecutionTimer"
End Sub

Vous lancez le timer en appelant la procédure LancerTimer(N), puis elle exécute le code de ExecutionTimer toutes les N secondes et enfin, vous l'arrêter avec ArretTimer.