Enregistrer en pdf avec nom de la cellule et choix du répertoire

Sub Enregistrer_PDF()
Dim fileSaveName As String
Dim numero As String
Dim nom As String
Dim numbl As String
Dim chemin As String
numero = [A1]
nom = [A2]
numbl = [A3]
chemin = [A4] 'mettre le chemin du répertoire
If Len(Dir(chemin, vbDirectory)) > 0 Then
 fileSaveName = Application.GetSaveAsFilename(chemin & "\" & numero & nom & numbl, "Fichier PDF (*.pdf), *.pdf")
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        fileSaveName, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
 End If
 MsgBox "Enregistrer en PDF", vbInformation, "Enregistrement en PDF"
 End Sub