EXCEL-Macro envoie d'un mail incluant le contenu d'une feuille. (adresse provien

Bonjour,
Je débute en VBA et j'utilise la formulation ici-bas. Malheureusement lorsque je transmets le 2ième courriel j'obtiens une erreur d'exécution avec le message la méthode 'Mailenvelope' de l'objet'_worksheet' a échoué (voir ==>)

Pouvez-vous m'indiquer comment corriger le code.


Sub courriel()

'déclaration des variables
Dim mafeuille As Worksheet

'affectation des variables
Set mafeuille = ThisWorkbook.Sheets("hor-agent")
'désactivation du rafrachissement de l'écran

Application.ScreenUpdating = False
mafeuille.Range("d3:Ai39").Select

'avec l'objet mail enveloppe on envoie dans le corps du mail
=====> With Selection.Parent.MailEnvelope.Item
.to = mafeuille.Range("AL2").Value 'destinataire
.Subject = mafeuille.Range("AL4").Value
.send 'envoie

'display on affiche

End With

MsgBox "Horaire transmise par courriel.", vbInformation + vbOKOnly, "CONFIRMATION COURRIEL ENVOYÉ"

Application.ScreenUpdating = True
Set mafeuille = Nothing

End Sub