Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With [E5].CurrentRegion
.Interior.ColorIndex = xlNone 'RAZ
If Not Intersect(ActiveCell, .Cells) Is Nothing And ActiveCell.Row > .Row And ActiveCell.Column > .Column Then _
Union(Intersect(ActiveCell.EntireRow, .Cells), Intersect(ActiveCell.EntireColumn, .Cells)).Interior.ColorIndex = 4 'vert
End With
End Sub