Sub TESTPDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"M:\A-FORUM\Copie de Classement par ordre de mérite(2)-1.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub