Sub Enregistrer_en_PDF()
'
' Enregistrer_en_PDF Macro
'
'
ChDir "C:\Users\Geof53\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Geof53\Desktop\Evaluation du risque chimique.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub