Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range, x$, y$, i As Variant, j As Variant
Set r = [N23:W32] 'plage à adapter
If Intersect(ActiveCell, r) Is Nothing Then Exit Sub
x = ActiveCell.Offset(22 - ActiveCell.Row)
y = ActiveCell.Offset(, 13 - ActiveCell.Column)
r.Interior.ColorIndex = xlNone 'RAZ
If x <> y Then ActiveCell.Interior.ColorIndex = 6 'jaune
Set r = [C3:I32] 'plage à adapter
For Each r In r.Rows
If r.NumberFormat <> ",,,""Tournoi""" Then
r.Interior.ColorIndex = xlNone 'RAZ
If x <> y Then
i = Application.Match(x, r, 0)
j = Application.Match(y, r, 0)
If IsNumeric(i) And IsNumeric(j) Then _
Union(r.Cells(i), r.Cells(j)).Interior.ColorIndex = 6 'jaune
End If
End If
Next
End Sub