Ouvrir Notepad en utilisant WScript.Shell

Ceci marche :

Sub appel()
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run("%windir%\notepad.exe")
ReturnCode = WshShell.Run("%windir%\notepad.exe", 1, True)
End Sub