Impression de graphiques sur le même PDF

Bonjour à tous,

J'essaye d'imprimer 4 graphiques sur un même pdf, mon souhait serait d'avoir un fichier PDF avec sur chaque page un graphique (sachant que ses 4 graphiques sont sur la même Feuille nommé "Impression"). Actuellement j'ai écris un code qui me permet d'imprimer chaque graphiques en remplissant bien la page (centré sur la feuille, prend toute la page,..) mais sur 4 fichiers PDF :

Private Sub BTN_Print_Click()
Dim NewFileName As String, Scope As String
Scope = Feuil1.Range("A1").Value & "-" & Feuil1.Range("A2").Value 'Recupère les dates selectionnées
Scope = Replace(Scope, "/", "_") 'change les caractères incorrects
    For xIndex = 1 To Application.Sheets("Impression").ChartObjects.Count 'parcours le nombre de graphiques sur la page impression
        NewFileName = Feuil2.Range("C3").Value & "Graph-" & Scope & xIndex & ".Pdf" 'crée un nom personnalisé
        Application.Sheets("Impression").ChartObjects(xIndex).Select
        Application.Sheets("Impression").ChartObjects(xIndex).Activate
        Application.ActiveChart.PrintOut Copies:=1, PrintToFile:=True, PrToFileName:=NewFileName
    Next
Sheets("Graphiques").Activate 'reviens sur la page pcpl
End Sub

Ce que je souhaite faire est-il possible avec la méthode Application.ActiveChart.PrintOut ?

Cordialement