Bonsoir Grégory
Tu trouveras en pièce jointe le fichier que tu as envoyé, adapté pour répondre au problème posé.
=====================================================
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Couleur = Range("B2")
Set Tableau = Range("C4:J19")
If Not Intersect(Target, Tableau) Is Nothing Then
For Each Row In Tableau
For Each Cel In Row
If Cel.Interior.ColorIndex <> Couleur.Interior.ColorIndex Then
Intersect(Cel.EntireRow, Columns("B")) = Intersect(Cel.EntireColumn.Offset(0, 1), Rows("3"))
Exit For
End If
Next Cel
Next Row
End If
End Sub
=====================================================
Si tu besoins d'explications complémentaires, n'hésite pas à me recontacter.
Cordialement.
Omicron