stopper une boucle

Bonjour à tous,

voila, j'ai un petit soucis: j'ai créé une boucle avec ontime ds un module et j'aimerai créer un bouton de commande sur une feuille qui me permettrai d'arrêter le programme dès que je clique dessus.

Voici une partie de mon module:

Sub Temps()
Application.OnTime Now + TimeValue("00:00:15"), "verifdm"
End Sub

Sub VerifDM()
If Test = 1 Then
Call LectureF 'pr lire et imprimer
End If
Call Temps
End Sub

j'ai essayé en créant une variable boolean qui se met à true dès qu'on clique sur le bouton mais ça marche pas, je dois mal m'y prendre.

merci