XL 2019 Changer la couleur de fond cellule après une recherche

'Attribute VB_Name = "CelluleClignotante5"
'faire clignoter la cellule active un certain nombre de fois puis arrêter

'procédure à appeler dans le code
Sub InitFlash()
'lance un clignotement toutes les secondes
    Application.OnTime Now + TimeValue("00:00:01"), "Flash"
End Sub


Sub Flash()
    Static i

    i = i + 1

    'le clignotement
    If ActiveCell.Interior.ColorIndex = 6 Then
        ActiveCell.Interior.ColorIndex = 3    'fond rouge
        ActiveCell.Font.ColorIndex = 6    'caractères en jaune
    Else
        ActiveCell.Interior.ColorIndex = 6    'fond jaune
        ActiveCell.Font.ColorIndex = 3    'caractères en rouge
    End If

    'tant que le nombre de clignotements choisi n'est pas atteint
    '(ici 2) on continue
    If i <= 2 Then
        Application.OnTime Now + TimeValue("00:00:01"), "Flash"
    Else
        'sinon, on revient à la mise ne forme par défaut d'Excel
        'et on arrête tout
        ActiveCell.Interior.ColorIndex = xlNone    'fond incolore
        ActiveCell.Font.ColorIndex = 1    'caractères en noir
        i = 0
    End If
End Sub

call InitFlash()