Option Explicit
Dim AVANT
Private Sub Worksheet_Change(ByVal c As Range)
If Not Intersect(c, Range("h20:ek50")) Is Nothing Then If c <> AVANT Then c.Interior.ColorIndex = 6
End Sub
Private Sub Worksheet_SelectionChange(ByVal c As Range)
If Not Intersect(c, Range("h20:ek50")) Is Nothing Then AVANT = c
End Sub