Public Sub Clign()
With Feuil1
If .Range("i4") < 10 Then 'Oubien If .Range("i4") <> "Attend un peu!" Then
.Range("e4").Value = "ATTENTION !"
For compteur = 1 To 8
.Range("e4").Font.Color = IIf(compteur Mod 2 = 0, vbRed, vbWhite)
.Range("e4").Interior.Color = IIf(compteur Mod 2 = 0, xlNone, vbRed)
.Range("e4").Font.Bold = True
deb = Timer
Do While Timer - deb < 0.5
DoEvents
If compteur = 8 Then .Range("e4").ClearContents: _
.Range("e4").Font.Color = vbBlack: .Range("e4").Font.Bold = False: _
.Range("e4").Interior.Color = xlNone: Exit Do
Loop
Next
End If
End With
End Sub