Envoi d'un email par macro Excel

[Inconnu0000]

Bonjour,

Je souhaite envoyer un email via une macro.
Cet email contient la feuille active de mon excel et je souhaitais personnaliser l'objet du mail.
J'arrive à envoyer mon email avec la feuille active en pièce jointe cependant je n'arrive pas à personnaliser l'objet de mon mail. Quelqu'un aurait-il une solution svp

Ma macro :
Sub SendMail()



' Copy the sheet(1)
ThisWorkbook.Sheets("FICHE EDC").Copy

' Send Email
With ActiveWorkbook
.SendMail Recipients:=Array("xxxxxxxx@xxx.eu")
.Subject = "TEST" & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With

Sheets("Hors-Grille").Select

End Sub