Enregistrer pdf dans un dossier spécifique mais avec sous dossier variable

Bonjour,
Je n'arrive plus à avancer sur mon code

Je souhaite enregistrer une feuille de mon classeur en Pdf jusque la tout va bien mais quand je souhaite que mon fichier s'enregistre dans un dossier spécifique mais avec un sous dossier du même nom qu'une cellule.

Dossier Tbleau achat et inventaire
sous dossier nom de site 1
site 2
site 3
site 4

Sub enregistersuiviachat()
''''''''''ouvrir suivi achat ''''''''''''
 Sheets("suivi achat").Select
    Range("A1").Select
'''''''''''''''''''''''''''''''''''''''''
'''''''''enregistrer sous ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Chemin As String
Dim NFichier As String

Chemin = "\\C\commun ets\TABL ACHATS & INV Mens" & Left(Range("B6").Value, 3) & "\" '''''''''''''''''ma variable est ici'''''''''''
NFichier = "Suivi achat" & Format(Now, "dd-mmm-yyyy") & Range("B6").Value & ".pdf"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & NFichier, Quality _
        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
''''''''revenir au menu principal'''''''''''
        Sheets("ouverture").Select         '
    Range("A1").Select                     '
''''''''''''''''''''''''''''''''''''''''''''
End Sub

EDIT : Correction des balises de code mal placées.

Merci de votre aide