Autres Alerte email via Excel

Bonjour à tous 🙂

Je souhaite recevoir un email (dès l'ouverture du fichier excel) lorsqu'une date de formation arrive à échéance (J-7).
Si possible recevoir une fois l'email d'alerte et non pas à chaque ouverture 😀
---------------------------------------------------------------------------------------
mon tableau se présente sous la forme :
Colonne A : Nom
Colonne B : prénom
Colonne C : service
Colonne D : date de la formation
Colonne E : date d'échéance de la formation
---------------------------------------------------------------------------------------
En effectuant des recherches, je suis tombée sur la macro ci-dessous, comment puis-je l'adapter à mon besoin ? ou pouvez-vous me diriger sur une discussion qui pourrait éventuellement m'aider ?


merci d'avance pour votre aide précieuse.

Sub mail()
Dim i As Integer
Dim ol As Object, olmail As Object
Set ol = CreateObject("Outlook.Application")
Set olmail = ol.Application.CreateItem(olMailItem)
With olmail
i = ActiveCell.Row
.To = ’’ monadressemail@orange.fr ‘’
.Subject = " sujet à écrire "
.HTMLBody = "Bonjour " & ",<br/><br/> La formation de " & Cells(i, 1) & Cells (i, 2) & " arrive à échéance le : " & Cells(i, 5) & vbCrLf & " .<br/><br/>Cordialement.")
.Display (je remplacerai par .send)
End With

End Sub