Sub MacroMail()
'Autant prendre de bonnes habitudes : en VBA, on déclare toujours les variables utilisées !
Dim AccuseReception As Boolean
Dim Sujet As String
'
ActiveWorkbook.Windows(1).SelectedSheets.Copy
AccuseReception = True
Sujet = 'Titre au choix'
ActiveWorkbook.SendMail '', Sujet, AccuseReception
ActiveWorkbook.Close False
End Sub