créer répertoire et lme nommer à partir d'une cellule

Bonne nuit !
Voici une macro à coller dans le module de feuille de "A1"
Attention à la ligne MonChemin = "C:\Documents..."
il faut remplacer par ton chemin à toi...
...Normalement ça devrait se terminer par quelque chose comme :
...\Mes Documents\WXYZ" ... sans slash à la fin !

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Z = UCase(Target.Value)
MonChemin = "C:\Documents...\Mes Documents"
rep = Z & " " & Year(Date) & Format(Month(Date), "00") & Day(Date)
If MsgBox("Voulez vous créer le répertoire" & Chr(13) & rep, 17, " Etes-vous sùr(e) ?") = 1 Then
MkDir MonChemin & "\" & rep
ChDir MonChemin & "\" & rep
ActiveWorkbook.SaveAs Z
End If
End If
End Sub
A+

PS :
J'ai mis la date au format AAAAMMJJ
Pour l'avoir au format JJMMAAA :

rep = Z & " " & Day(Date) & Format(Month(Date), "00") & Year(Date)
A+