Ameliorer le code de la macro sauve pdf

Bonjour,

J'ai une macro de sauvegarde en PDF pour un classeur excel 2016.

Je cherche à l'améliorer afin qu'elle puisse me laisser la possibilité de sélectionner (ou programmer) un dossier( ce qu'elle fait déjà) mais surtout que je puisse donner éventuellement changer le nom du fichier sans que celui-ci s'ouvre dans reader.
Ils 'agit d'une macro qui reprend le nom du Mois sur la feuille.

Je suis obligé d'avoir la feuille du Mois ouverte alors que j'aimerais que le bouton Macro soit sur une autre (ex: Tableau de bord) et que je puisse lui désigner l'onglet du Mois à sauver.

Merci de votre aide.

    Dim dossier As String
    

'emplacement a derterminée
If MsgBox(" Générer PDF Mois ?", vbYesNo, _
                              "Demande de confirmation") <> vbYes Then Exit Sub



dossier = ChoixDossier
If dossier = "" Then Exit Sub
nom = dossier & "\" & Range("B2")
    

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
       
End Sub

Function ChoixDossier()
    If Val(Application.Version) >= 10 Then
       With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = ActiveWorkbook.Path & "\"
        .Show
        If .SelectedItems.Count > 0 Then
           ChoixDossier = .SelectedItems(1)
        Else
           ChoixDossier = ""
        End If
       End With
     Else
       ChoixDossier = InputBox("Choix du Répertoire ?")
     End If
End Function
End sub