Private Sub CommandButton1_Click()
Dim c As Range
Dim drligne As Long
Dim colonne As Integer
drligne = Range("A65000").End(xlUp).Row
On Error Resume Next
colonne = Cells(1, TextBox1.Text).Column
ListBox1.Clear
For Each c In Range("A1:A" & drligne)
If c.Offset(0, colonne - 1).Value > CDbl(TextBox2.Value) Then ListBox1.AddItem c.Text
Next
End Sub