Problème de compte à rebours dans Label

Bonjour,

J'ai instancié un compte à rebours dans un label sur une UserForm qui apparait aprés click sur bouton, mais celui-ci ne tourne pas. Je ne vois d'où viens mon problème.
Si quelqu'un à une solution ?
Voilà le code que j'ai créé, en sachant que si je remplace "UserForm1.Label1.Caption = debut" par " Range("a1").Value = debut" cela fonctionne trés bien dans la cellule.

Public Sub Bouton_1_click()
UserForm1.Show
End Sub

Private Sub UserForm_Activate()
Call compt
Unload Me
End Sub

Public Sub compt()
Dim debut As Integer
Dim resultat As Integer

For debut = 10 To 0 Step -1
Application.Wait (Now + TimeValue("00:00:01"))
'Range("a1").Value = debut
UserForm1.Label1.Caption = debut
Next debut
resultat = MsgBox("ok", , "rien")
End Sub