Private Sub TextBox1_AfterUpdate()
Dim lig As Long
Dim i As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With Sheets("Utilisateurs")
.Range("$A$2:$C$2900").AutoFilter Field:=1, Criteria1:=TextBox1, Operator:=xlAnd
lig = .Range("A65536").End(xlUp).Row
For i = 3 To lig
TextBox2 = .Range("b" & i)
TextBox3 = .Range("c" & i)
Next i
If .FilterMode Then .ShowAllData
End With
TextBox1 = ""
End Sub
Private Sub CommandButton1_Click()
Dim i As Long
For i = 1 To 3
Me.Controls("TextBox" & i) = ""
Next i
Unload Me
End Sub