Problème Diapo Photo / Application_OnTime

Bonjour,

Je cherche à faire défiler une série d'images contenues dans un dossier sur une page Excel.
Pour cela j'ai un bouton qui permet de Start/Stop le diapo.

Lors du clic sur le bouton pour démarrer le diapo cette procédure se lance :

Sub InitOnTime()
Depart_Diapo = Now + TimeValue("00:00:15")

If NrbFichierDiff = True Then
Rafra?chir
End If

If Not StopIt Then
Application.OnTime Depart_Diapo, "MaMacro"
Else
On Error Resume Next
Application.OnTime Depart_Diapo, "MaMacro", Schedule:=False
End If

End Sub

Puis cela lance ensuite la procédure "MaMacro" qui permet de faire tout le traitement des images derrière (Mise en forme, suppression de l'image précedente ….)

Cette application est destinée à quiconque souhaiterai l'utiliser dans l'entreprise, j'essaies donc de faire en sorte de corriger n'importe quel problème qu'un utilisateur pourrait causer.

Cependant, imaginons que l'opérateur appuie plusieurs fois d'affiler sur le bouton Start/Stop (ce qui est possible…..) du genre : Start puis Stop puis Start puis Stop tout cela rapidement, j'ai l'impression que mon horloge (Application_OnTime) se désynchronise et les images ne se changent plus toute les 15 secs mais des fois toutes les 1 sec ou des fois 7sec ou des fois 15 comme je le souhaite…


Et je n'arrive pas à corriger ce problème.

Si quelqu'un aurait une idée ?


Cordialement,