Sub Clignotement()
'touches Ctrl+A pour lancer la macro
Static marche As Boolean, etat As Boolean
Dim P As Range, mini, c As Range, t#
Set P = Feuil1.[H16:M25] 'feuille et plage à adapter
marche = Not marche
While marche
etat = Not etat
mini = Application.Min(P)
P.Interior.ColorIndex = xlNone 'RAZ
If etat Then
Application.ScreenUpdating = False
For Each c In P
If c = mini Then c.Interior.ColorIndex = 3
Next
Application.ScreenUpdating = True
End If
t = Timer + 1: While Timer < t: DoEvents: Wend
Wend
P.Interior.ColorIndex = xlNone
etat = False
End Sub