Problème VBA code qui ne fonctionne plus

Hello,

J'ai créé une macro pour faire un mail avec un tableau excel, mon code a fonctionné 2 fois mais je ne sais pas pourquoi il ne fonctionne plus .... Je dois envoyé 4 mails dans 4 feuilles différentes c'est peu être pour ça que sa ne fonctionne pas ?

C'est cette fonction qui merde :

With Selection.Parent.MailEnvelope.Item

Sub EnvoieMail()

Dim MaFeuille As Worksheet
Dim NbLigne As Integer

Set MaFeuille = ThisWorkbook.Sheets("ABRU")
Application.ScreenUpdating = False

NbLigne = MaFeuille.Range("A" & Application.Rows.Count).End(xlUp).Row
MaFeuille.Range("A1:K" & NbLigne).Select
With Selection.Parent.MailEnvelope.Item

    .To = "fnicais@amazon.com"
    .Subject = "2nd passages à faire ABRU"
    .Send

    End With

    MsgBox "Le mail est crée"

    Application.ScreenUpdating = True

    End Sub

Merci pour vos réponses :)

Bonsoir,

Avez-vous essayé de remplacer ceci :

MaFeuille.Range("A1:K" & NbLigne).Select
With Selection.Parent.MailEnvelope.Item

par :

With  MaFeuille.Range("A1:K" & NbLigne).Parent.MailEnvelope.Item

@ bientôt

LouReeD

Alors ca fonction mais a chaque fois je dois cliquer sur enregistrer ca va ce n'est pas une manipe qui prend beaucoup de temps donc ca me va :) Merci :D