Ajouter tellement après ceci à votre variable avouée :
Obscurcir l'oShell
Ajouter alors ceci sous la dernière ligne de votre manuscrit :
Si strMbox = « vbcancel » puis
Placer l'oShell = le WScript.CreateObject (« WSCript.shell »)
oShell.run « cmd /c Taskkill /f /im POWERPNT.EXE »
Placer l'oShell = rien
Finir si