Message MsgBox temporaire ne fonctionne pas

Option Explicit

Private Sub Workbook_Open()
CreateObject("Wscript.shell").Popup "Ce message fermera dans 3 secondes", 3, "Message", vbExclamation
End Sub

Private Sub UserForm_Activate()
    Application.OnTime Now + TimeValue("00:00:03"), "fermer"
End Sub

Sub fermer()
    Unload UserForm1
End Sub

Declare Function MessageBoxTimeout Lib "user32.dll" Alias "MessageBoxTimeoutA" ( _
ByVal hwnd As Long, _
ByVal lpText As String, _
ByVal lpCaption As String, _
ByVal uType As Long, _
ByVal wLanguageID As Long, _
ByVal lngMilliseconds As Long) As Long
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
 
Public Sub test_msgbox_temp_2()
Const cmsg As String = "Msgbox avec tempo de 2s"
Const cTitle As String = "Popup"
Dim retval As Long
retval = MessageBoxTimeout(FindWindow(vbNullString, Title), cmsg, cTitle, 4, 0, 2000) 'en ms
 
MsgBox "Terminé"
 
End Sub

CreateObject("Wscript.shell").Popup "Le Message", 3, "Le Titre", vbExclamation 

Application.Wait Now + TimeValue("00:00:03")

Sub test_msgbox_temp_1()
     CreateObject("WScript.Shell").Run "mshta.exe vbscript:close(CreateObject(""WScript.Shell"").Popup""Test"",3,""titre"",vbexclamation))"
End Sub