Bonjour SKF,
Quelques pistes à te proposer :
-Exporter en 3 PDF les feuilles :
Set oSheet1 = ThisWorkbook.Worksheets(1)
Set oSheet2 = ThisWorkbook.Worksheets(2)
oSheet1.ExportAsFixedFormat xlTypePDF, "DOC1.Pdf", , , , 1, 3, False
oSheet2.ExportAsFixedFormat xlTypePDF, "DOC2.Pdf", , , , , , False
oSheet1.ExportAsFixedFormat xlTypePDF, "DOC3.Pdf", , , , 4, , False
puis utilitaire de fusion de PDF du type : pdfsam.org.
-Exporter le classeur en 1 PDF puis réorganiser avec utilitaire du type : pdfsam.org
Cordialement
Gérard