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