Imprimer via Macro 2 page sur 1 page .pdf (fichier XLS)

Bonjour

Je viens à vous car je n'arrive pas à configurer ma foutue macro. Je m'arrache les cheveux

J'arrive à imprimer ma feuille en .pdf à l'endroit ou je veux (via la premiére macro) . Elle me fait tout automatiquement. C'est presque parfait. Sauf qu'elle ne m'imprime pas 2feuilles sur 1

La 2nd Macro , m'imprime 2 page en 1 par contre il m'ouvre une page de validation (via l'interface .pdf) puis faut que je modifie le format etc.

Pourriez vous de votre oeil avisé m'aider. L'objectif serait de partir de la premiére macro est de la rectifier si c'est possible pourqu'elle m'imprime 2 pages sur une feuilles

Macro 1

VB:

Sub Imprimer()

'

' Imprimer Macro

'

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"\\xxx.xxx.x.x\Coxxx\Hxxxx\" & Range("S4") & " - Hxxxxx - " & Range("S2") & " " & Range("S3") & " " & Range("T5") & ".pdf", Quality _

:=xlQualityStandard, IncludeDocProperties:=True, _

OpenAfterPublish:=False

End Sub

Mon 2éme code .

Code:

Sub test()

'

' test Macro

'

'

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

IgnorePrintAreas:=False

End Sub

Je vous joints le fichier ou vous aurez les 2 macros et une copie du résultat que je souhaites

Merci pour vos aides respectives