[XL-2016] Ajouter des fichiers pdf à une macro d'impression

Bonjour à tous.
Je souhaite, lors de l'impression via une macro (ci-dessous) ajouter en queue d'impression des fichiers pdf. Ces fichiers pdf sont stockés dans un dossier à la racine du classeur. La sélection des fichiers à imprimer se fait par le lien contenu dans la 13ème cellule de la colonne visible.
Voici mon code pour l'impression :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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

Je ne trouve pas la solution sur les forums certainement parce que je ne sait probablement pas bien la poser !
Merci de vos contributions.