Cela ne donne pas le résultat attendu car en fonction des circonstances, les données de la feuille excel "débordent" sur la pager suivante de sorte que lorsque je sauvegarde en PDF, toutes les colonnes de la page 2 viennent s'ajouter et compriment les données de la page 1. Ce qui pour une facture n'est pas acceptable.
Bref en lieu et place de la page j'ai plutôt travaillé sur la plage de cellules et là le résultat est impeccable avec ou sans "débordement".
Pour ceux que cela pourrait intéresser voici ma (très) modeste contribution.
With ActiveSheet 'sauvegarde au format PDF
Range("A2:G52").Select
.PageSetup.Zoom = False
.PageSetup.FitToPagesTall = 1
.PageSetup.FitToPagesWide = 1
Selection.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=chemin & nom_fichier, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
from:=1, To:=1, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End With