.AppendText "********************************************"
End With
'Partie à modifier
NomFichier = "C:\temp\Courant.xls"
Sheets("Feuil1").Copy
ActiveWorkbook.SaveCopyAs Filename:=NomFichier
ActiveWorkbook.Close False
Set AttachME = MailDoc.CreateRichTextItem("Attachment")
Set EmbedObj = AttachME.EmbedObject(1454, "", NomFichier, "Attachment")
'Fin de modif
'Envoi du document
Call MailDoc.Send(False)