Sub Créer_Chemin()
Dim Chemin As String, Compteur As Integer
Chemin = Range('A1')
Compteur = 4'laisser à 4 si le chemin comprend le lecteur sinon 1
Do
Compteur = InStr(Compteur, Chemin, '\\', 1)
If Compteur > 0 Then
If Dir(Left(Chemin, Compteur - 1), vbDirectory) = '' Then MkDir Left(Chemin, Compteur - 1)
Compteur = Compteur + 1
End If
Loop Until Compteur = 0
MkDir Chemin
End Sub