Sub MacroMail()
Dim AccuseReception As Boolean
Dim Sujet As String
'
Sheets("FEUILLE").Select
Sheets("FEUILLE").Copy Before:=Sheets(8)
Range("A1:AA44").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C11").Select
Sheets("FEUILLE(2)").Select
ActiveWorkbook.Windows(1).SelectedSheets.Copy
AccuseReception = True
Sujet = "OBJET récurrent"
ActiveWorkbook.SendMail "", Sujet, AccuseReception
ActiveWorkbook.Close False
End Sub