Excel et Outlook

Sub envoi_mail_feuille()
    Dim votre_feuille As Worksheet
    Dim contenu As String, email As String, objet As String

    '// Création mail et envoi ...............................
    With votre_feuille
        .Activate
        With .MailEnvelope
            .Introduction = contenu 'contenu du mail
            
            'Destinataires, objet et envoi
            With .Item
                .To = email       'adresse mail du destinataire
                .CC = ""
                .BCC = ""
                .Subject = objet  'objet du mail
                .Send
            End With
        End With
    End With
    
    '// Attente complétude opération d'envoi du mail
    DoEvents
    
    '// sauvegarde classeur
    Application.DisplayAlerts = False
    ThisWorkbook.Save
    Application.DisplayAlerts = True
    
End Sub