Option Explicit

Dim WSHShell, Commande

Set WSHShell = CreateObject("WScript.Shell")

Commande = "C:\MonfichierBat.bat"

WSHShell.Run Commande
Set WSHShell = Nothing