Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range
boucl:
a = Range("a1").Value
b = Range("b1").Value
If sto Then Exit Sub
If col = 4 Then col = 0 Else col = 4
If col2 = 3 Then col2 = 0 Else col2 = 3
For Each cel In Range("h9:h50")
If cel.Value = a Then
cel.Interior.ColorIndex = col
Else: cel.Interior.ColorIndex = 0
End If
If cel.Value = b Then
cel.Interior.ColorIndex = col2
Else: cel.Interior.ColorIndex = 0
End If
Next
For X = 1 To 5000
DoEvents
Next X
GoTo boucl
End Sub