Cellule clignotante

Bonjour,

je suis sur ce fichier excel et essaie de faire clignoter le résultat des cellules qui ne sont pas vides et ce pour toute une colonne.

Je parviens à faire clignoter une cellule avec la macro suivante :


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim n As Byte
Dim Start As Variant
Dim i As Integer

If [A1] <> "" Then
Const Texte As String = ""
For i = 1 To 4
Cells(1, 1).Font.ColorIndex = 6
Cells(1, 1).Interior.ColorIndex = 3
For n = 1 To 10
Start = Timer


Comment faire pour faire clignoter les cellules de A1 à A10 par exemple?


Si quelqu'un a un éclair de génie...

Merci d'avance


Do While Timer < Start + 1 / 100
Loop
If n Mod 5 = 0 Then
Cells(1, 1).Interior.ColorIndex = xlNone
Cells(1, 1).Font.ColorIndex = 1
End If
Next n
Next i
End If
Exit Sub
End Sub