Sub Recherche_Couleur_Rouge()
Dim Plage As Range, i&
Set Plage = Range("c15:c5000")
For i = GetSetting("steph57", "Recherche", "Couleur", 1) To Plage.Count
If Plage(i).Interior.ColorIndex = 3 Then
Plage(i).Select
SaveSetting "steph57", "Recherche", "Couleur", i + 1
Exit Sub
End If
If i = Plage.Count Then MsgBox "fin de liste": DeleteSetting "steph57"
Next i
End Sub