Bonjour Onemouv, bonjour le forum,
Essaie le code ci-dessous, à placer dans l'onglet concerné. Attention, seule la première occurrence trouvée est colorée. Si tu dois colorer toutes les occurrences il faudra modifier le code...
Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
Dim R As Range 'déclare la variable R (Recherche)
If Target.Address <> "$C$2" Then Exit Sub 'si le changement a lieu ailleurs qu'en C2, sort de la procédure
Set R = Columns(3).Find(Target.Value, Target, xlValues, xlWhole) 'définit la recherche R
If Not R Is Nothing Then R.Interior.ColorIndex = 3 'si il existe au moins une occurrence, colore la première occurrence trouvée de rouge
End Sub
[Édition]
Bonjour Oyobrans, on s'est croisé...