Ajouter des fichiers pdf à une macro d'impression

Private Sub CommandButton2_Click()
'incrémentation N° à chaque impression
 
Sheets("Données Client").[D25] = Sheets("Données Client").[D25] + 1
 
 
'Séléction de la zone à imprimer
CV = 6
    With Worksheets("Panorama FM")
        For n = 7 To 123
            If .Columns(n).Hidden = False Then CV = CV + 1
            If CV = 11 Then Exit For
        Next n
        Range(Cells(7, 2), Cells(105, n)).Select
 
' Macro export en PDF avec nom variable selon contenu cellule.
 
    'Chemin d'accès pour l'enregistrement
    ChDir (ThisWorkbook.Path & "\DEVIS ")
 
 
 
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        " Devis " & Sheets("Données Client").Cells(1, 10).Value & " " & "client " & Sheets("Données Client").Cells(5, 5).Value & " " & Sheets("Données Client").Cells(4, 5).Value & " " & Sheets("Données Client").Cells(25, 3) & "-" & Sheets("Données Client").Cells(25, 4).Value, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
 
End With
Unload Me
ActiveCell.Select
 
End Sub