Private Sub CommandButton1_Click()
Dim t, sel As Range, inf&, sup&, v, i&
With Sheets("base")
t = .Range("a1:a" & .Cells(.Rows.Count, 1).End(xlUp).Row + 1)
inf = Val(txtInf): sup = Val(txtSup)
For i = 2 To UBound(t)
v = t(i, 1)
If v >= inf And v <= sup And v <> "" Then If sel Is Nothing Then Set sel = .Cells(i, 1) Else Set sel = Union(sel, Cells(i, 1))
Next i
If sel Is Nothing Then .Cells(1, 1).Select Else sel.Select
End With
End Sub