ListView3.ListItems.Clear
Dim Col As Integer
Dim s As Worksheet, i As Long, j As Byte
With ListView3
.ListItems.Clear
If ComboBox1 <> "" Then
For Each s In Worksheets
If Left(s.Name, 9) = "FORMATION" Then
For i = 1 To s.Cells(Rows.Count, "B").End(xlUp).Row
'
' Recherche sur les 11 premières colonnes
'
For Col = 1 To 11 'pour une recherche sur les 4 premières colonnes !
If s.Cells(i, "J") >= 10 And s.Cells(i, "J") <= 20 And s.Cells(i, "E") <> "" And s.Cells(i, Col) = ComboBox1 Then
.ListItems.Add , , s.Cells(i, 1)
For j = 2 To 11
.ListItems(.ListItems.Count).ListSubItems.Add , , s.Cells(i, j)
Next
.ListItems(.ListItems.Count).ListSubItems.Add , , s.Name
End If
Next
Next
End If
Next
End If
End With