Stopper temporisation

Bonjour,
Je bute sur un problème de temporisation.
A l'initialisation d'un USF d'identification, je démarre un chrono pour permettre à l'utilisateur d'indiquer son MdP.
Au delà du délai fixé, s'il n'y a pas eu validation, l'application se ferme (macro "Quitte").
Actuellement même avec validation l'application se ferme. Comment interrompre l'action à la validation (bouton 1 du USF) ?

Private Sub CommandButton1_Click()
' code pour interrompre l'action déclenchée par le chrono

End Sub


Private Sub UserForm_Initialize()
With Me
.StartUpPosition = 0
.Top = 270
.Left = 415
End With
'action déclenchée par le chrono
Application.OnTime Now + TimeValue("00:00:30"), "Quitte"
End Sub

Merci.