Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With [B2:F8] 'plage à adapter
.Interior.ColorIndex = xlNone
.Font.ColorIndex = xlAutomatic
If Intersect(ActiveCell, .Cells) Is Nothing Then Exit Sub
With Union(.Cells(1, ActiveCell.Column - .Column + 1), _
.Cells(ActiveCell.Row - .Row + 1, 1))
.Interior.ColorIndex = 10
.Font.ColorIndex = 2
End With
End With
End Sub