Utilisation de l'objet MailEnveloppe

bonjour

j'essaye de passer des tableau excel dans le corps d'un mail

j'ai trouvé des exemples avec l'utilisation de l'objet MailEnvelope.Item
mais cela ne fonctionne pas sur mon PC

ci-dessous mon code
Sub courriel()

'déclaration des variables
Dim mafeuille As Worksheet, tto As String

'affectation des variables
Set mafeuille = ThisWorkbook.Sheets("Feuil1")

mafeuille.Range("B6:C12").Select

With mafeuille.MailEnvelope.Item
tto = mafeuille.Range("AL2").Value
.to = tto 'destinataire
.Subject = mafeuille.Range("AL4").Value
.display

End With

End Sub

lorsque que j'essaye de faire tourner le code sur mon PC j'ai juste les cellules B6:C12 en sélection

Pouvez vous m'aider?

Merci