Comment créé un alerte mail dans un tableau excel

Sub Envoidu_MailAutomatique()
    On Error Resume Next
    ' Envoie automatiquement le mail a trois mois de la date de validite du permis de conduire,
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim L As Integer 'Déclaration de variable "L" pour connaitre la Ligne Numéro
    Dim Plage_DL As Range
    Dim cel As Range

    'Plage de cellules date a tester ici colonne A
    With Worksheets("feuil1")
        derlig = .Range("A" & Rows.Count).End(xlUp).Row     'derniere cellule non vide
        Set Plage_DL = .Range("A2:A" & derlig)          'definition plage en memoire
    End With

    'on fait la boucle plage date livraison
    For Each cel In Plage_DL
        'DateDiff("m", Now, cel)        instruction calcul difference de dates en mois
        If DateDiff("m", Now, cel) >= 3 And IsDate(cel) And cel.Offset(, 2) = Empty Then
            cel.Offset(, 2) = "@"       'ecriture ici colone B, d'un @ pour eviter envois multiples pour une meme date
            Set OutApp = CreateObject("Outlook.Application")
            Set OutMail = OutApp.CreateItem(0)
            
            'contenu message a adapter
            Contenu = ""
            strbody = Contenu
            With OutMail
                .To = "xxx@gmail.com"       'adresse destinataire
                '.CC = ""       'copie
                '.BCC = ""      'copie cachee (Blind Carbon Copy en Anglais)
                .Subject = "Sujet du @mail"
                .Body = strbody     'corps du @mail
                'Piece-Jointe si besoin
                '.Attachments.Add ("C:\test.txt")
                '.Display   'ouvre Outlook pour valider ou non l'envoi
                'or use
                .Send       'sans ouverture Outlook, envoi direct
            End With
        End If
        'attente envoi @Mail par Outlook
        Application.Wait Application.Wait(Now + TimeValue("0:00:01"))
        Set OutMail = Nothing
        Set OutApp = Nothing
    Next cel
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub