Sub EnvoyerRapportPDF()
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Blaise\AppData\Local\Temp\RAPPORT FINANCIER PHARMACIE.pdf", Quality _
:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False _
, OpenAfterPublish:=False
Application.Dialogs(xlDialogSendMail).Show
Sheets("INFO GENERALES SUR LA PHARMACIE").Select
Range("C21").Select
ActiveCell.FormulaR1C1 = "leprolbc@gmail.com"
Range("D10").Select
End Sub