Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[Plage].Interior.ColorIndex = 0
For Each cel In [Plage]
If cel = "x" Then _
Union(Range(Cells(cel.Row, "A"), Cells(cel.Row, cel.Column)), _
Range(Cells(1, cel.Column), Cells(cel.Row, cel.Column))).Interior.ColorIndex = 6
Next
End Sub