merci ... je perds la tête !
par contre comme faire pour que ce code ci-après soit adaptable non plus pour une cellule mais pour une zone entière ...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim n As Byte
Dim Start As Variant
Dim i As Integer
If [A1] >= 100 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
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