Option Explicit
Private Cel As Range, CoulInit As Long, NbClign As Byte
Sub Recherche()
Set Cel = Cells.Find(What:="RATO", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
CoulInit = Cel.Interior.Color
Clignote
End Sub
Sub Clignote()
If NbClign < 6 Then
Cel.Interior.Color = IIf(NbClign Mod 2, &HEC00BD, &H6DFFB7)
NbClign = NbClign + 1
Application.OnTime Now + TimeSerial(0, 0, 1), "Clignote"
Else
Cel.Interior.Color = CoulInit
NbClign = 0
End If
End Sub