Problème VBA-envoie de mail

Bonjour,
J'ai un problème mon code VBA concernant l'envoi d'un mail:

Sub Envoyer_un_mail()

'
'Déclaration de la variable

Dim MaFeuille As Worksheet
Dim NbLigne As Integer

'Affectation des variables
Set MaFeuille = ThisWorkbook.Sheets("Matrice")

'Desactivation du raffaichissement de l'écran
Application.ScreenUpdating = False

'On calcule le nombre de ligne à prendre
NbLigne = MaFeuille.Range("A" & Application.Rows.Count).End(xlUp).Row

'On selectionne la plage à copier
MaFeuille.Range("A1:B" & NbLigne).Select

'Avec l'object Mail
With Selection.Parent.MailEnvelope.Item
.To = MaFeuille.Range("B6").Value
.Subject = MaFeuille.Range("B5").Value
.Send

End With

MsgBox "Votre Email a bien été envoyé.", vbInformation + vbOKOnly, "CONFIRMATION ENVOI MAIL"

Application.ScreenUpdating = True

Range("A1").Select

End Sub

Edit modo : code mis entre balises, merci d'y faire attention la prochaine fois

La première fois cela a bien fonctionné mais la seconde fois j'ai un message d'erreur "'La méthode Mailenvelope de l'objet worksheet' a échoué".
Merci pour votre aide

Bonjour Elie50260

La prochaine fois merci de mettre votre code entre balises SVP

Aller donc faire un petit tour sur cette page vous aurez le code pour envoyer votre selection par mail

A+

Bonjour,

Très bien c'est noté! Je m'en excuse
Merci pour votre réponse. Je dois vous avouer que je ne trouve pas mon erreur malgré votre page conseillée..

Re,

Anonymisé bien entendu

A+