faire clignoter cellule si

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect([B2:B6], Target) Is Nothing And Target.Count = 1 Then
        If [B7] = 10 Then Clignote "B7", 10
    End If
End Sub

Sub Clignote(C, nb)

CouleurActuelle = Range(C).Interior.ColorIndex

For n = 1 To 10
    ActiveSheet.Range(C).Interior.ColorIndex = 3
    fin = Timer + 0.2
    Do While Timer < fin: DoEvents: Loop
    ActiveSheet.Range(C).Interior.ColorIndex = ColeurActuelle
    fin = Timer + 0.4
    Do While Timer < fin: DoEvents: Loop
Next
End Sub

Option Explicit
'=========================
Private Sub Worksheet_Change(ByVal Traget As Range)

If Not Application.Intersect([B2:B6], Traget) Is Nothing And Traget.Count = 1 Then
    If [B7] = 10 Then Clignote "B7", 5
End If

End Sub
'=========================
Sub Clignote(C, nb)
Dim CouleurActuelle As Variant, n%, Fin

CouleurActuelle = Range(C).Interior.ColorIndex
'------------------
For n = 1 To nb '10
    ActiveSheet.Range(C).Interior.ColorIndex = 3
    Fin = Timer + 0.2
    Do While Timer < Fin: DoEvents: Loop
    ActiveSheet.Range(C).Interior.ColorIndex = CouleurActuelle
    Fin = Timer + 0.4
    Do While Timer < Fin: DoEvents: Loop
Next

End Sub
'=========================