XL 2016 filtre avec critère numérique (fonction if)

je veux afficher seulement les lignes ont un nombre inferieur ou égale a le nombre dans le combobox
quand click sur le bouton pour afficher le résultat, il affiche tous les lignes du tableau
merci de m'aidez

le code :
Private Sub CommandButton10_Click()
On Error Resume Next

Dim lr1, bn1, bs1 As Integer
UserForm4.ListBox1.Height = 222
UserForm4.ListBox1.Width = 435
UserForm4.ListBox1.ColumnCount = 3
Me.ListBox1.ColumnWidths = "120;260;50"

lr1 = Feuil3.Range("k10000").End(xlUp).Row
For bn1 = 3 To lr1
bs1 = bn1 + 1


If Feuil3.Cells(bn1, "K").Value <= Me.ComboBox2.Value Then

Me.ListBox1.AddItem
Me.ListBox1.List(ListBox1.ListCount - 1, 0) = Feuil3.Cells(bn1, "E").Value
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = Feuil3.Cells(bn1, "F").Value
Me.ListBox1.List(ListBox1.ListCount - 1, 2) = Feuil3.Cells(bn1, "K").Value
End If

Next bn1
End Sub