Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[B2:E5,J7:M32].Interior.ColorIndex = xlNone 'RAZ
[B2:E5,J7:M32].Font.ColorIndex = xlAutomatic 'RAZ
If Intersect(ActiveCell, [H7:H32]) Is Nothing Then Exit Sub
With Union(Range(ActiveCell(1, 2)).Offset(1, 1), ActiveCell(1, 3).Resize(, 4))
.Interior.Color = vbBlue 'bleu
.Font.Color = vbWhite 'police blanche
End With
End Sub