For L = 1 To UBound(TabTemp, 1)
If UCase(TabTemp(L, 3)) Like UCase(TextBox1 & "*") Or _
UCase(TabTemp(L, 4)) Like UCase("*" & TextBox1 & "*") Or _
UCase(TabTemp(L, 11)) Like UCase("*" & TextBox1 & "*") Or _
UCase(TabTemp(L, 14)) Like UCase("*" & TextBox1 & "*") Then
If memo <> "" Then
If TabTemp(L, 11) <> memo Then
.ListItems.Add , , ""
For I = 1 To 9
.ListItems(X).ListSubItems.Add , , ""
Next
X = X + 1
End If
End If
.ListItems.Add , , TabTemp(L, 1)
.ListItems(X).ListSubItems.Add , , TabTemp(L, 3)
.ListItems(X).ListSubItems.Add , , TabTemp(L, 4)
.ListItems(X).ListSubItems.Add , , TabTemp(L, 6)
.ListItems(X).ListSubItems.Add , , Format(TabTemp(L, 7), "# ##0.00")
.ListItems(X).ListSubItems.Add , , TabTemp(L, 8)
.ListItems(X).ListSubItems.Add , , TabTemp(L, 11): memo = TabTemp(L, 11) 'mémorisation
.ListItems(X).ListSubItems.Add , , TabTemp(L, 13)
.ListItems(X).ListSubItems.Add , , TabTemp(L, 14)
.ListItems(X).ListSubItems.Add , , TabTemp(L, 15)
X = X + 1
End If
Next