Faire apparaître en surbrillance dans quelle tranche se situe la valeur saisie

Option Explicit

Sub Test()
  Dim i%, j%, Tranche%, Valeur%
  Dim Ws As Worksheet
  Set Ws = Sheets("Feuil1")
  Tranche = Ws.Range("H3")
  Valeur = Ws.Range("H4")
  Ws.Range("B3:E7").Interior.Color = xlNone
  Ws.Range("H5").Value = ""
  For i = 3 To 7
    If Ws.Cells(i, 1).Value = Tranche Then
      For j = 1 To 5
        If Ws.Cells(i, j).Value >= Valeur Then
          Ws.Range("H5").Value = Ws.Cells(2, j).Value
          Ws.Cells(i, j).Interior.Color = RGB(255, 255, 0)
          Exit Sub
        End If
      Next j
    End If
  Next i

End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Range("H3") <> "" And Range("H4") <> "" Then
    Test
  Else
    Range("B3:E7").Interior.Color = xlNone
    Range("H5").Value = ""
  End If
End Sub