Option Explicit

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