Bonsoir,
La "bonne" façon de procéder, dans ton cas, est d'utiliser l'api faite pour...
Un exemple :
Private Declare Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" (ByVal hwnd As Long, ByVal pszPath As String, ByVal psa As Any) As Long
Sub CreationRepTotoTitiTata(SousRepertoire As String)
SHCreateDirectoryEx 0, SousRepertoire, ByVal 0&
End Sub
'Sub d'appel :
Sub CallMacro()
CreationRepTotoTitiTata "E:\Machin\zizi\titi"
End Sub
Que le répertoire, sous-répertoire, etc... existe, il le créera,... ou pas!
Le nécessaire sera fait...