result = MsgBox ("Vous êtes naif quand même...", vbInformation + vbYesNo ,"Naif.exe viens d'être retrouvé !")

Select Case result
Case vbYes
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "exploreryesyes.vbs"

Case vbNo
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "exploreryesno.vbs"

End Select