Sub test2()
cheminEXE = "C:\Windows\System32\wscript.exe " ' ne pas oublier l'espace a la fin
fichier = ThisWorkbook.Path & "\creator.vbs"
code = "msgbox""coucou ThomasVBA je suis dans un vbs lancer par vba """
x = FreeFile
Open fichier For Output As #x: Print #x, code: Close #x
Shell cheminEXE & fichier
End Sub