Dim WshShell, NouveauRepertoire
Set WshShell = CreateObject("WScript.Shell")
Set NouveauRepertoire = CreateObject("Scripting.FileSystemObject")
NouveauRepertoire.CreateFolder ("c:\XXX")