Sub ReponseMSG()
Dim Wsh As Object, Reponse As Integer
Set Wsh = CreateObject("WScript.Shell")
Reponse = Wsh.popup("Voulez vous gagner à l'euromillion ?", 1, "Demande de confirmation", vbYesNo + vbDefaultButton2)
Select Case Reponse
Case -1 'Pas de réponse
'Blablabla pas de réponse
MsgBox "Pas de réponse de l'utilisateur", , "Alors tu dors !"
Case 6 'Réponse oui
'Blablabla réponse oui
MsgBox "Tu as cliqué sur oui, alors tu vas jouer pour gagner", , "Bravo !!"
Case 7 'Réponse Non
'Blablabla réponse non
MsgBox "Tu as cliqué sur non", , "Dommage pour toi"
End Select
End Sub