MailEnvelope marche une seule fois

Bonjour,

J'ai recopié un code macro (je ne maîtrise pas) pour envoyer, via ,outlook, le contenu d'une feuille Excel qui contient un tableau croisé dynamique.
Mon problème c'est que cela fonctionne une seule fois seulement après ouverture du fichier. La seconde fois j'ai le message :

" 'La méthode Mailenvelope de l'objet worksheet' a échoué"

Voilà ma macro :

Sub EnvoiMail()

Dim MaFeuille As Worksheet
Dim NbLigne As Integer
Set MaFeuille = ThisWorkbook.Sheets("Feuil1")
Application.ScreenUpdating = False
NbLigne = MaFeuille.Range("A" & Application.Rows.Count).End(xlUp).Row
MaFeuille.Range("A5:J" & NbLigne).Select
With Selection.Parent.MailEnvelope.Item
.To = MaFeuille.Range("N4").Value
.Subject = MaFeuille.Range("A1").Value
.Send

End With
MsgBox "Votre mail a été envoyé.", vbInformation + vbOKOnly, "CONFIRMATION ENVOI MAIL"
Application.ScreenUpdating = True
Range("A1").Select
End Sub

Merci beaucoup pour votre aide

Pascal