Création dossier et sous dossier avec test

on approche du but, les dossiers sont biens nommés, maintenant comment faire pour sélectionner le dossier3 pour enregistrer le fichier avec :

ActiveWorkbook.SaveAs Filename:=fichier, _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

voilà ça marche nickel :

Sub dossiers_fichiers()
'par: Excel-Malin.com ( https://excel-malin.com )
    On Error GoTo ExempleErreur

Dim NouveauDossierAvecSousDossiers As String
Dim dossier1 As String
Dim dossier2 As String
Dim bat As Integer
Dim dossier3 As String
Dim fichier As String
Dim chemin As String

dossier1 = Sheets("Chantier").Range("C7").Value & " - " & Sheets("Chantier").Range("C16").Value & " - " & Sheets("Chantier").Range("C15").Value
bat = Sheets("Chantier").Range("C29").Value
    If bat > 4 And bat > 0 Then
        dossier2 = "Immeuble"
    Else
         dossier2 = "pavillon"
    End If
dossier3 = Sheets("Chantier").Range("C6").Value
fichier = "Fiche suivi chantier lot " & Sheets("Chantier").Range("C7") & " - " & Sheets("Chantier").Range("C6") & ".xlsm"

    NouveauDossierAvecSousDossiers = ThisWorkbook.Path & "\" & dossier1 & "\" & dossier2 & "\" & dossier3
    CreerDossier (NouveauDossierAvecSousDossiers)
    chemin = NouveauDossierAvecSousDossiers & "\" & fichier

        ActiveWorkbook.SaveAs Filename:=chemin, _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Exit Sub
ExempleErreur:
    MsgBox "Une erreur est survenue..."
End Sub