Sub FusionPDF(ps_PathFic As String, ps_Fic As String, ps_PathNew As String)
Dim PDFCr As New PDFCreator_COM.PdfCreatorObj, workflow As New PDFCreator_COM.Queue
Dim job_print As PDFCreator_COM.PrintJob
For Each zo_Fic In fso.GetFolder(ps_PathFic).Files
If fso.GetExtensionName(zo_Fic.Path) = "pdf" Then PDFCr.AddFileToQueue zo_Fic.Path
Next zo_Fic