Aide pour fficher un Userform pendant 5 s

Bonjour le Forum,
Je cherche de l'aide pour un code VBA qui me permet d'afficher un Userform pendant une durée prédifinie (5 secondes). Dans mes recherches sur le forum j'avais ce code:
'************************************
'partie à coller dans un module
'************************************
Option Explicit
' vériland
Public compte
Dim etat

Sub test()
etat = True
USF.Show
End Sub

Sub maprocédure()
USF.Caption = compte
If compte = 0 Then
USF.Hide
Exit Sub
End If
Application.OnTime Now + TimeValue('00:00:05'), procedure:='maProcédure', schedule:=etat
compte = compte - 1

End Sub

'************************************
'partie à coller dans le module Userform
'************************************
Option Explicit

Private Sub USF_Initialize()
compte = 5
activation
End Sub
Mais il me renvoie un message d'erreur.
Merci d'avance pour votre contribution.