Private Sub TextBox1_Change()
Dim i&, fin&
If TextBox1 = "" Then ListView1.ListItems.Clear: Exit Sub
fin = Feuil1.Range("A65536").End(xlUp).Row
aa = Feuil1.Range("A4:L" & fin)
For i = 1 To UBound(aa)
For a = 1 To UBound(aa, 2)
If aa(i, a) Like "*" & TextBox1 & "*" Then aa(i, 12) = "oui"
Next a
Next i
y = 1
For i = 1 To UBound(aa)
If aa(i, 12) = "oui" Then y = y + 1
Next
If y < 2 Then ListView1.ListItems.Clear: GoTo 1
ReDim bb(y - 1, 11)
y = 1
For i = 1 To UBound(aa)
If aa(i, 12) = "oui" Then
For a = 1 To 11
bb(y, a) = aa(i, a)
Next a
y = y + 1
End If
Next i
With ListView1
.ListItems.Clear
.View = lvwReport
.FullRowSelect = True
.Gridlines = True
For i = 1 To UBound(bb)
.ListItems.Add , , bb(i, 1)
For a = 2 To UBound(bb, 2)
.ListItems(.ListItems.Count).ListSubItems.Add , , bb(i, a)
Next a
Next i
1 End With
End Sub