result = MsgBox ("Tu as assez de pages chargés ?", vbYesNo + vbInformation, "Information")

Select Case result
Case vbYes
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe"""
WScript.Sleep 2000
MsgBox "En voilà une autre alors !", vbInformation, "Tu en veux plus ?"

Case vbNo
MsgBox "Ok"

End Select