Msgbox avec timer

Bonjour,

Je cherche à ajouter a la fin de mon userform un Msgbox qui afficherait un timer avec le temps indiqué à l'utilisateur pour finir la procedure.

J'ai essayé avec le critère "timeout" mais une erreur s'affiche..

Je suis preneur de toutes solutions

Merci d'avance

EDIT:

J'ai trouvé ceci mais le timer se fait sur l'userform qui est déjà présent sur ma macro.

Alors que je souhaite que le timer se fasse sur un msgbox qui doit apparaître après l'userform

Option Explicit

Private Sub UserForm_Activate()
    Delais
End Sub

Sub Delais()
Dim T
    T = Timer + 5 'pour 2 secondes
    Do While Timer < T: Loop
    MsgBox T
    Unload Me
End Sub

'Unload Me
'End Sub

Désolé du double post