Bonsoir,
Ci dessous proposition (trouvée sur le site de Fréderic Sigonneau, je crois...)
Sub MsgFlash(Msg$, NbSecondes&)
Dim WshShell
Set WshShell = CreateObject('WScript.Shell')
WshShell.Popup Msg, NbSecondes, , 71
End Sub
Sub Test()
Dim Msg$
Msg = 'Ceci est un test'
MsgFlash Msg, 3
End Sub
Bonne soirée
Michel_M