Bonjour
voici la syntaxe que j'utilise
Set fs = CreateObject('scripting.filesystemobject')
If fs.folderexists(ThisWorkbook.Path & '\\ARTIS') = False Then
MkDir ThisWorkbook.Path & '\\ARTIS'
MsgBox 'Le sous-répertoire ARTIS a été créé, il faut y mettre le fichier d'extraction Artis Merci'
End If
A+