Modifier le titre du classeur l'or de l'envoie

J'ai une macro pour envoyer par Email une feuille, elle fonctionne tres bien

********************************
Sub SendMail()
ThisWorkbook.Sheets(1).Copy
With ActiveWorkbook
.SendMail Recipients:=Array(test@test.fr, test@test.fr), Subject:="Relevet analytique" & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With

Application.WindowState = xlNormal

End Sub

**************************************

Mais l'or de l'envoi le titre du classeur est (classeur 3 ex..) et il change à chaque envoie, comment puis je faire pour qu'il reste fixe.
Merci