Réponse acceptée !
bonjour
J'espère que cet exemple pourra t'aider
Dim return_receipt As Boolean
Dim strRecipients As String, strSubject As String
'Copie la feuille active qui va être envoyée par mail
ActiveSheet.Copy
strRecipients = " destinataire@provider.fr "
strSubject = "Le sujet du message"
return_receipt = True
Application.Dialogs(xlDialogSendMail).Show _
strRecipients, _
strSubject, _
return_receipt
'Supprime le classeur envoyé
'ActiveWorkbook.Close False
bonne journée
michel