Sub TESTENREGISTR()
Dim Chemin As String
Chemin = ThisWorkbook.Path & "\" 'Ne pas oublier le \ à la fin
Dim NomFichier As String
NomFichier = Range("B1").Value & "_" & Range("B4").Value & "_" & Range("C4").Value & Range("D4").Value
Dim NomDossier As String
NomDossier = NomFichier
'Créer Dossier
If Len(Dir(NomDossier, vbDirectory)) = 0 Then
MkDir Chemin & NomDossier
End If
'nommer la feuille
ActiveWorkbook.SaveAs Filename:=Chemin & NomFichier
End Sub