Sub Macro1()
'
' Macro1 Macro
'
'
Range("B2:E43").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"/Users/user1/Documents/Toque/BDD/LivraisonsEffectuees.pdf", _
Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:= _
False, OpenAfterPublish:=False
End Sub