Envoi copie feuille excel par mail

Cells.Copy
Range("A1").PasteSpecial Paste:=xlPasteValues

ActiveSheet.Copy

Sub Envoi_resultats()
Dim Dest As Variant, Sujet As String

Sheets("Fiche résultats").Copy 'crée une copie de la feuille active
ActiveSheet.Cells.Copy
Application.DisplayAlerts = False
  ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=False
Application.DisplayAlerts = True

Dest = Sheets("Fiche résultats").Range("E5:E7")
Sujet = "Rapport d'expertise"

ActiveWorkbook.SendMail Dest, Sujet, True

Application.DisplayAlerts = False
  ActiveWorkbook.Close 'ferme la copie de la feuille active
Application.DisplayAlerts = True

MsgBox "La fiche de résultats vient d'être envoyée. Veuillez ensuite valider votre fiche en cliquant sur le bouton Valider. Merci."
End Sub