Private Sub TextBox1_Change()
Dim v#, h&, liste(), tablo, i&, n&, j%
If Trim(TextBox1) = "" Then ListBox1.Clear: Exit Sub
v = Val(Replace(TextBox1, ",", ".")) 'valeur numérique
With Feuil1.[A10].CurrentRegion
h = Application.CountIf(.Columns(3).Offset(1), v)
If h = 0 Then ListBox1.Clear: Exit Sub
ReDim liste(1 To h, 1 To 9)
tablo = .Resize(, 9) 'matrice, plus rapide
End With
For i = 2 To UBound(tablo)
If tablo(i, 3) = v Then
n = n + 1
For j = 1 To 9
liste(n, j) = tablo(i, j)
Next j
End If
Next i
ListBox1.List = liste
End Sub