VBA Excel - Combinar dos PDF con PDFCreator

Bonjour,

Estoy intentando hacer una macro para fusionar dos documentos pdf, pero no funciona. ¿Alguien podría ayudarme? Aquí está la macro

Sub testPrintPDF()

Dim OLDPRINTER As String
Dim FICHIER As String 'Ruta hacia la carpeta donde están los pdf
Dim PERIMETRE1 As String 'Nombre del 1er pdf
Dim PERIMETRE2 As String 'Nombre del 2º pdf
Dim PDFCREATOR As New clsPDFCreator

OLDPRINTER = ActivePrinter
ActivePrinter = "PDFCreator en 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") 'el lector de pdf se abre y se congela hasta que se cierra
Sleep 200
PDFCREATOR.cPrintFile (FICHIER & PERIMETRE2 & ".pdf") 'el lector de pdf se abre y se congela hasta que se cierra
Sleep 200

PDFCREATOR.cCombineAll

PDFCREATOR.cPrinterStop = False

'PDFCREATOR.cClose
ActivePrinter = OLDPRINTER
' Cambiar la impresora predeterminada

End Sub

Gracias por su ayuda
Configuración: Windows 7 / Firefox 40.0