Sub Macro15()
' Macro15 Macro
' Envoi reste à réaliser par mail
'
Range("B4:G100").SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Workbooks("Classeur1.xls").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\serge\AppData\Local\Temp\Classeur1.pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
:=False
Application.Dialogs(xlDialogSendMail).Show
ActiveWorkbook.Close
End Sub