Sub Macro1()
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, Filename:="C:\Users\STAPLE\Documents\Classeur1.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
End Sub
Sub Macro2()
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\STAPLE\Documents\Classeur2.pdf", Quality:=xlQualityMinimum, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub