Bonjour
Le rital
-------------------------------------------
Envoie la feuille 1 par Mail
Sub EnvoiFeuilMail()
Dim Wbk As Workbook
ThisWorkbook.Sheets("Feuil1").Copy
Set Wbk = ActiveWorkbook
SendKeys "{E}"
Wbk.SendMail "dj@free.fr", "Feuille du contrat à signer", True
'true pour un avis de reception
Wbk.Close savechanges:=False
Set Wbk = Nothing
End Sub