Envoyer Une feuille par mail

Private Sub EnvMailProt()

Tabelle1.Unprotect Password:="pipapo"
Dim Plage As Range
Set Plage = Tabelle1.Range("A1:C1")
Application.ScreenUpdating = False
Workbooks.Add: Plage.CopyPicture: ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
.Paste
.Export "C:\Temp\copy.gif", "GIF"
ActiveWorkbook.EnvelopeVisible = False
With ActiveSheet.MailEnvelope
.Introduction = "TEST"
.Item.To = "BLABLA@BLABLA.COM"
.Item.Subject = "TEST"
.Item.Send
End With
End With
' ci-dessous 2 lignes ajoutées --------------------
Application.DisplayAlerts = False
ActiveWorkbook.Close
' -------------------------------------------------
Tabelle1.Protect Password:="pipapo"

End Sub