Envoi d'un email par macro Excel

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