Problème VBA EXCEL : Label clignotant

For Each TheRow In Feuil9.ListObjects("Tab_Taux").ListRows

    'On recherche la ligne qui correspond à critère Montant et Nbr de jour
   If TextBox3 <> "" And TextBox7 <> "" And TextBox11 <> "" And ComboBox1 <> "" Then
    
    If (CDbl(TextBox7.Text) >= TheRow.Range(1, 1).Value) And (CDbl(TextBox7.Text) <= TheRow.Range(1, 2).Value) And (CDbl(TextBox3.Text) >= TheRow.Range(1, 3).Value) And (CDbl(TextBox3.Text) <= TheRow.Range(1, 4).Value) Then
        'On controle le taux
        If CDbl(TextBox11.Text) > TheRow.Range(1, 5).Value And CheckBox1.Value = False Then
            TextBox11.Value = ""
            MsgBox " (1ère Consultation)  Dépassement du Taux Maximal :  " & TheRow.Range(1, 5).Value & " % "
            CheckBox1.Visible = True
            'On quitte la boucle
            Exit For
        End If
    End If

 End If
Next

'Clignotant pour Label et Bouton
Sub TimerLab_Bout()
Static Memt As Double, Cpt As Long
    Do While Arret_Timer1 Or Arret_Timer2   'Clignotant Label ou Clignotant Bouton Ok
        If Memt < Timer Then
            If Arret_Timer1 Then
              If userform1.Label45.Caption = "" Then
                userform1.Label45.Caption = "Sélection cellule"
              Else
                userform1.Label45.Caption = ""
              End If
            End If
            If Arret_Timer2 Then
              If userform1.CmBValider.Caption = "" Then
                userform1.CmBValider.Caption = "AUTOMATIQUE"
              Else
                userform1.CmBValider.Caption = ""
              End If
            End If
            Memt = Timer + 0.333 'Interval temps: 1/3 de seconde
        End If
        DoEvents: Cpt = Cpt + 1
    Loop
    MsgBox Cpt
End Sub