Sub Filtrer(Optional b As Byte)
Dim Criteres(1 To 2), T As Variant, i As Long
Application.ScreenUpdating = False
For i = 1 To 2
Criteres(i) = Me.OLEObjects.Item("TextBox" & i).Object.Value
Criteres(i) = IIf(Criteres(i) = "", "|", LCase("*" & Criteres(i) & "*"))
Next i
T = Me.Range("I7:J" & Me.UsedRange.Rows.Count).Value
For i = 2 To UBound(T)
If Me.Rows(6 + i).RowHeight > 0 Then
If Not (LCase(T(i, 1)) Like Criteres(1) Or LCase(T(i, 2)) Like Criteres(2)) Then
Me.Rows(6 + i).RowHeight = 0
End If...