Option Explicit
Sub MsgBox_temporaire()
' Code de antonysansh (Merci !)
message_tempo "Test Message", , "A lire vite"
End Sub
Private Function message_tempo(Message As String, Optional Secondes As Integer = 1, Optional Titre As String = "", Optional Options As Integer = 0)
CreateObject("WScript.Shell").Run _
"mshta.exe vbscript:close(CreateObject(""WScript.Shell"")" _
& ".Popup(""" & Message & """," & Secondes & ",""" & Titre & """," & Options & "))"
End Function