Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range, Cible As Range, ActiveRepérée As Boolean
For Each C In [F1:F30]
If C.DisplayFormat.Interior.ColorIndex = 35 Then
If Cible Is Nothing Then Set Cible = C
If ActiveRepérée Then Set Cible = C: Exit For
ActiveRepérée = Not Intersect(C, Target) Is Nothing
End If
Next C
If ActiveRepérée Then Application.Goto Cible
End Sub