Salut, à tenter si par hasard la syntaxe était qqch du genre
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNomFichierPDF _
, Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Remplacer xlQualityMinimum par xlQualityStandard ?