Executer équivalent "Envoyer cette feuille"

Bonjour et merci d'avance,

Je souhaite exécuter le bouton suivant en vba, mais je ne sais pas comment faire...

il est issu du code suivant :

With ActiveSheet.MailEnvelope
    .Item.To = "BBB CCCC"

    .Item.Subject = "REBUTS DU " & Format([A1], "dd/mm/yyyy") & " à " & Format(Now, "hh:nn")

End With

Merci

Il fallait rajouter

    
    .Item.Send 'avant 
     end with