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 :

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.