Sub Macro31()
'Export feuille active
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Temp\test1.pdf", Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
'Export Sélection active
Range("Tableau1[#All]").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Temp\test2.pdf", Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub