un cadeau :
Function Message_Temporaire(Message As String, TpsenSeconde As Integer, TitreMessage As String)
CreateObject("WScript.Shell").PopUp Message, TpsenSeconde, TitreMessage
'temps en secondes. référence dés fois nécessaire à Windows host scripting)
End Function
sub test
nib = Message_Temporaire("J'espère qu'il vous plaira", 2, "Un cadeau pour vous !")
end sub