Clignotement cellules

Option Explicit
Dim Timer As Date
Dim Cell As Variant

Sub Comman()
   For Each Cell In Range("A5:L35")
       If Not (Cell.Comment Is Nothing) And Cell = Date Then 'MsgBox Cell.Comment.Text
       Cell.Select
       Clign
       End If
    Next
End Sub

Sub Clign()
On Error Resume Next
    Timer = Now() + TimeValue("00:00:01") 'le temps du clignotement
    Application.OnTime Timer, "Clign"
    'Affiche l'alerte ou la fait disparaître (alternativement)
    With ThisWorkbook
                'Commentaire
        With .Sheets("Calendrier").Range(ActiveCell.Address)
            .Comment.Visible = Not .Comment.Visible
        End With
    End With
End Sub

Sub ArretClign()
On Error Resume Next
    Application.OnTime Timer, "Clign", , False
    'Cache l'alerte
     Sheets("Calendrier").Range(ActiveCell.Address).Comment.Visible = False
End Sub

Option Explicit
Dim Timer As Date
Dim Cell As Variant
Sub Comman()
   For Each Cell In Range("A5:L35")
       If Not (Cell.Comment Is Nothing) And Cell = Date Then 'MsgBox Cell.Comment.Text
       Cell.Select
       Clign
       End If
    Next
End Sub
Sub Clign()
On Error Resume Next
Static i
   i = i + 1
 'tant que le nombre de clignotements choisi n'est pas atteint
  '(ici 5) on continue
  If i <= 5 Then
  Timer = Now() + TimeValue("00:00:01") 'le temps du clignotement
    Application.OnTime Timer, "Clign"
    'Affiche l'alerte ou la fait disparaître (alternativement)
    With ThisWorkbook
                'Commentaire
        With .Sheets("Calendrier").Range(ActiveCell.Address)
            .Comment.Visible = Not .Comment.Visible
        End With
    End With
  Else
   Application.OnTime Timer, "Clign", , False
    'Cache l'alerte
     Sheets("Calendrier").Range(ActiveCell.Address).Comment.Visible = True
    i = 0
  End If
End Sub

Option Explicit
Dim f, ligne, cmt
Dim mois, jour
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
  [A5:L35].ClearComments
  [A5:L35].Interior.ColorIndex = xlNone
  Set f = Sheets("evenement")
  For ligne = 2 To f.[A65000].End(xlUp).Row
    cmt = f.Cells(ligne, 1) & " " & f.Cells(ligne, 2) & " " & f.Cells(ligne, 4)
    mois = Month(f.Cells(ligne, 3))
    jour = Day(f.Cells(ligne, 3))
With Sheets("calendrier").Cells(jour + 4, mois)
       If .Comment Is Nothing Then .AddComment
       .Comment.Text Text:=cmt
       .Comment.Shape.TextFrame.AutoSize = True
       .Interior.ColorIndex = 3
       .Comment.Visible = True
      End With
      Next ligne
      Comman 'lance le clignotement
        Application.ScreenUpdating = True
End Sub