Private Sub CommandButton1_Click()
Dim i As Long
Dim k As Long
k = 0
Me.ListBox1.Clear
If Me.TextBox2 = "" Then Me.TextBox2 = "*"
If Me.TextBox1 = "" Then Me.TextBox1 = "*"
For i = 21 To [A65530].End(xlUp).Row
If Cells(i, 20) Like "*" & Me.TextBox1 & "*" _
And Cells(i, 24) Like TextBox2 Then
Me.ListBox1.AddItem
Me.ListBox1.List(k, 0) = Cells(i, 2) 'date
Me.ListBox1.List(k, 1) = Cells(i, 20) 'identité
Me.ListBox1.List(k, 2) = Cells(i, 13) & " " & Cells(i, 21) 'test + résultat
Me.ListBox1.List(k, 3) = Cells(i, 23) & ". Lot: " & Cells(i, 24) 'réactif-1 + lot-1
Me.ListBox1.List(k, 4) = Cells(i, 25) & ". Lot: " & Cells(i, 26) 'réactif-2 + lot-2
Me.ListBox1.List(k, 5) = Cells(i, 47) & ". Lot: " & Cells(i, 48) 'Controle-1 + lot-1
Me.ListBox1.List(k, 6) = Cells(i, 49) & ". Lot: " & Cells(i, 50) 'Controle-2 + lot-2
Me.ListBox1.List(k, 7) = Cells(i, 22) 'lot Bobine
Me.ListBox1.List(k, 8) = i
k = k + 1
End If
Next i
End Sub