Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range, plage As Range, plages As Range, i As Long, lig As Integer
If Not Intersect(Target, [M11:M35]) Is Nothing Then
lig = Range("m65536").End(xlUp).Row
For i = 11 To lig
For j = 1 To 10
Set plages = Range("pl_" & j)
If ActiveCell.Value = plages.Value Then
Set plage = Range("dt_" & j)
plage.Interior.ColorIndex = 15
End If
Next j
Next i
End If
End Sub
A+ :cool: