Réaliser une petite boucle en vba

Function actuellement() As Date
Dim cejour As Date
cejour = Date
actuellement = cejour + Timer / 24 / 60 / 60
Do While cejour <> Date
    cejour = Date
    actuellement = cejour + Timer / 24 / 60 / 60
Loop
End Function

Maintenant =now

Maintenant = actuellement()

Option Explicit

Const Duree As Integer = 10  'Durée du clignotement, en secondes
Private Declare Function SetTimer Lib "User32" (ByVal hWnd As Long, ByVal nIDEvent As Long, _
                                     ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "User32" (ByVal hWnd As Long, _
                                     ByVal nIDEvent As Long) As Long
Public m_TimerID As Long, m_fin As Date

Private Sub Blink()
          Dim xCell As Range: Dim maintenant As Date
Dim Ecoule As Single
                maintenant = actuellement()
          Set xCell = Range("F2")
With ThisWorkbook.Worksheets("Feuil1").Range("F2").Font
     If xCell.Font.Color = vbRed Then
        xCell.Font.Color = vbWhite
  Else
        xCell.Font.Color = vbRed
     End If
End With
If maintenant > m_fin Then
    Unload usf1                                         'Ferme l'USF1
    Call StopBlink                                               'Appel macro arrèt clignotement "STOPBLINK"
Else
    With usf1
          Ecoule = Duree - (m_fin - maintenant) * 24 * 3600
          .Label3.Caption = Round(Duree - Ecoule, 0)
          Dim i As Integer
          For i = 5 To 5 + (36 - 5) * Ecoule / Duree
            .Controls("Label" & CStr(i)).Visible = True
        Next i
    End With
End If
End Sub
Public Sub StartBlink()
         Dim Duration As Long
Duration = 50                 'Fréquence de clignotement, en millisecondes
With usf1
      .Show 0               'Ouvre l'USF1 Pour que les feuilles de calcul restent accessibles passer la boite de dialogue en mode non modal La propriété ShowModal doit être égale à False.
      .Label1.Caption = "ATTENTION" + Chr$(13) & Chr$(10) + "Une erreur de formule est survenue" + Chr$(13) & Chr$(10) + "Veuillez réparer en recopiant la formule" _
               + Chr$(13) & Chr$(10) + "avec la poignée en croix de la cellule" + Chr$(13) & Chr$(10) + "du dessus ou du dessous, svp."                                       'Affiche message Label1
     Dim i As Integer
     For i = 5 To 36
        .Controls("Label" & CStr(i)).Visible = False
     Next i
End With
   
   m_fin = Now + TimeSerial(0, 0, Duree)
If m_TimerID = 0 Then
    If Duration > 0 Then
         m_TimerID = SetTimer(0, 0, Duration, AddressOf Blink)
      If m_TimerID = 0 Then
        MsgBox "Echec de l'initialisation du minuteur."
      End If
Else
        MsgBox "La durée doit être supérieure à zéro."
    End If
  Else
        MsgBox "Timer déja démarré."
  End If
End Sub

Public Sub StopBlink()
         If m_TimerID <> 0 Then
           KillTimer 0, m_TimerID
           m_TimerID = 0
    Else
          MsgBox "Timer non actif."
        End If
End Sub