Sub clientpdf()
ActiveSheet.Copy
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\windows\Test - Wxcel en Pdf.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Application.Dialogs(xlDialogSendMail).Show
ActiveWorkbook.Close (False)
MsgBox ("Le Pdf a été créé")
Range("A5").Select
End Sub