Private Sub TextBox2_Change()
Dim Arg$, T(), LE&, LS&, C&
If TextBox1.Text = "" Then Exit Sub
Arg = UCase(TextBox1.Text & "*")
T = Intersect(Feuil2.[A4:FXD1048576], Feuil2.UsedRange).Value
For LE = 1 To UBound(T, 1)
If T(LE, 3) Like Arg Or T(LE, 4) Like Arg Then
LS = LS + 1: For C = 1 To UBound(T, 2): T(LS, C) = T(LE, C)
Next C: End If: Next LE
Intersect(Me.[A4:FXD1048576], Me.UsedRange).Value = Empty
If LS = 0 Then Me.[A4].Value = "Rien trouvé.": Exit Sub
Me.[A4].Resize(LS, UBound(T, 2)).Value = T
End Sub