Création d'une alerte automatique dans Excel

Option Explicit
Dim madate As Date
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Feuil1").Select 'a adapter au nom de la feuille
madate = Format(Date, "d/mm/yyyy")
For_Each_Next_Plage
End Sub
Sub For_Each_Next_Plage()
Dim FL1 As Worksheet, Cell As Range, Plage As Range
Dim Var1
 Dim LaDate As Date
 LaDate = CDate(madate)
    Set FL1 = Worksheets("Feuil1") 'a adapter au nom de la feuille
    With FL1
        'Détermination de la plage de cellules à lire
        'Peut s'écrire en utilisant l'objet range de la plage
        'For Each Cell In .Range("B3:E15")
 
        'ou en utilisant l'objet Plage (range) de la plage
        Set Plage = .Range("J3:L110") ' a adapter
        For Each Cell In Plage
 
            'Valeur de la cellule lue
            Var1 = Cell.Value
            If Var1 = CLng(LaDate) Then
Cell.Interior.ColorIndex = 3  'rouge
Else
Cell.Interior.ColorIndex = xlColorIndexAutomatic 'blanc
End If
        Next
    End With
    Set FL1 = Nothing
    Set Plage = Nothing
End Sub

Option Explicit
Dim madate As Date
Private Sub Workbook_Open()
Sheets("suivi").Select
madate = Format(Date, "d/mm/yyyy")
For_X_to_Next_Colonne
End Sub
Sub For_X_to_Next_Colonne()
Dim FL1 As Worksheet, Cell As Range, NoCol As Integer
Dim NoLig As Long, DerLig As Long, Var As Variant
Dim LaDate As Date
 LaDate = CDate(madate)
    'Instance de la feuille qui permet d'utiliser FL1 partout dans
    'le code à la place du nom de la feuille
    Set FL1 = Worksheets("suivi")
 
    'Détermine la dernière ligne renseignée de la feuille de calculs
    '(Voir explication sur l'utilisation de Split en bas de cette discussion)
    DerLig = Split(FL1.UsedRange.Address, "$")(4)
 
    'Fixe le N° de la colonne à lire
    NoCol = 6
 
    'Utilisation du N° de ligne dans une boucle For ... Next
    For NoLig = 3 To DerLig
        Var = FL1.Cells(NoLig, NoCol)
        If Var = CLng(LaDate) Then
FL1.Cells(NoLig, NoCol).Font.ColorIndex = 3
Else
FL1.Cells(NoLig, NoCol).Font.ColorIndex = 1
End If

        'Pour tester : Affiche les variables dans la fenêtre Exécution de VBA
        'Debug.Print Var
    Next
    Set FL1 = Nothing
End Sub

Option Explicit
Dim madate As Date
Private Sub Workbook_Open()
Sheets("suivi").Select
madate = Format(Date, "d/mm/yyyy")
For_Each_Next_Plage
End Sub
Sub For_Each_Next_Plage()
Dim FL1 As Worksheet, Cell As Range, Plage As Range
Dim Var1
 Dim LaDate As Date
 LaDate = CDate(madate)
    Set FL1 = Worksheets("suivi")
    With FL1
        'Détermination de la plage de cellules à lire
        'Peut s'écrire en utilisant l'objet range de la plage
        'For Each Cell In .Range("B3:E15")
 
        'ou en utilisant l'objet Plage (range) de la plage
        Set Plage = .Range("J3:L110") ' a adapter
        For Each Cell In Plage
 
            'Valeur de la cellule lue
            Var1 = Cell.Value
            If Var1 = CLng(LaDate) Then
Cell.Font.ColorIndex = 3 'rouge
Else
Cell.Font.ColorIndex = 1 'noir
End If
        Next
    End With
    Set FL1 = Nothing
    Set Plage = Nothing
End Sub