Macro VBA générer PDF et impression

Bonjour à tous,

Je souhaite créer une macro qui pourrait enregistrer en PDF un document en sélectionnant à partir d'une liste de données. Concrètement dans ma cellule B3, j'ai un menu déroulant avec différentes entités dont je veux enregistrer et imprimer les données.
J'avais réussi à faire cette macro pour lancer une impression mais elle ne doit pas être directement transposable pour le PDF

Sub Impressionbtq()
    Dim Liste As String, C As Range
    With Sheets("P&L boutiques")
        Liste = .Range("b3").Validation.Formula1
        Liste = Right(Liste, Len(Liste) - 1)
        For Each C In Range(Liste)
            .[b3] = C.Value
            .chemin = "C:\Users\...\Documents\" 'chemin du dossier destination à adapter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        chemin & "\" & nom & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

        Next C
    End With
End Sub

Est-ce que vous pourriez m'aider

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.