Problème userform affiché pendant execution VBA

Bonjour,

Je viens de créer une userform qui s'affiche pendant l'éxécution de ma vba, seulement elle ne disparait pas automatiquement à la fin du code !!!!

Voilà le code mise en place dans l'userfrom :

Private Sub UserForm_Activate()

Application.Run "totaux_stocks"

End Sub


puis le code :

Sub Patientez()
'macro associée à un bouton placé sur la feuille
MessageInfo.Show vbModeless
MessageInfo.Repaint
End Sub

Pouvez m'aider pour que mon useform se ferme automatiquement ????