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