Bonsoir Philippe
Tu peux travailler avec le code suivant:
Sub Cree()
Dim Rep As String
On Error GoTo Nouveau
.....
Nouveau:
Rep = InputBox("Introduire le nouveau répertoire", "Crée répertoire")
MkDir Rep 'Crée nouveau répertoire dans le répertoire par défaut
'MkDir "C:\Mes Document\" & Rep 'Crée dans un répertoire spécifique
End Sub
Voila, j'espère que cela t'aidera
Bonne soirée
@Christophe@