VBA Excel - Fusionner deux pdf avec PDFCreator

Bonjour,

J'essaie de faire une macro pour fusionner deux documents pdf mais elle ne marche pas. Quelqu'un pourrait-il m'aider ? Voici la macro

Sub testPrintPDF()

Dim OLDPRINTER As String
Dim FICHIER As String 'Lien vers le dossier où se trouve les pdf
Dim PERIMETRE1 As String 'Nom du 1er pdf
Dim PERIMETRE2 As String 'Nom du 2nd pdf
Dim PDFCREATOR As New clsPDFCreator

OLDPRINTER = ActivePrinter
ActivePrinter = "PDFCreator sur Ne00:"

PERIMETRE1 = "1_TdB PROPRETE - PARIS"
PERIMETRE2 = "2_TdB PROPRETE - DÉCHETTERIE"
FICHIER = ActiveWorkbook.Path
FICHIER = Replace(FICHIER, "3_Calcul", "4_Infocentre")

With PDFCREATOR
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = FICHIER
.cOption("AutosaveFilename") = "combine.pdf"
.cOption("Autosaveformat") = 0
.cStart
.cClearCache
End With

PDFCREATOR.cPrinterStop = True
PDFCREATOR.cPrintFile (FICHIER & PERIMETRE1 & ".pdf") 'pdf-reader pops up and freezes until it is closed
Sleep 200
PDFCREATOR.cPrintFile (FICHIER & PERIMETRE2 & ".pdf") 'pdf-reader pops up and freezes until it is closed
Sleep 200

PDFCREATOR.cCombineAll

PDFCREATOR.cPrinterStop = False

'PDFCREATOR.cClose
ActivePrinter = OLDPRINTER
' Change l'imprimante par défaut

End Sub

Merci de votre aide