Private Sub TextBox1_Change()
If flag Then Exit Sub
Dim t$, i&, x$
t = TextBox1
For i = 1 To Len(t)
If IsNumeric(Mid(t, i, 1)) Then x = x & Mid(t, i, 1)
Next
flag = True: TextBox1 = x: flag = False
If Me.FilterMode Then Application.ScreenUpdating = False: Me.ShowAllData
[AE3] = "=FIND(" & TextBox1 & ",E3)" 'recherche de nombre
[A2].CurrentRegion.AdvancedFilter xlFilterInPlace, [AE2:AE3]
[AE3] = ""
End Sub