For Col = 2 To 4: Me("ComboBox" & Col) = "": Next
For Col = 4 To 9: Me("TextBox" & Col) = "": Next
OptionButton1.Visible = False: OptionButton2.Visible = False
With Listview1
.ListItems.Clear
For L = 3 To dLi + 1 'on rajoute 2 car il commence à partir de la ligne 3
If ComboBox1 = "TOUS" Then
.ListItems.Add , , Cells(L, 1)
For Col = 2 To 6
.ListItems(L - 2).ListSubItems.Add , , Cells(L, Col)
Next
For Col = 7 To 9
.ListItems(L - 2).ListSubItems.Add , , Cells(L, Col).Text
Next
Else
If Cells(L, 4) = ComboBox1.Value Then
.ListItems.Add , , Cells(L, 1)
For Col = 2 To 6
.ListItems(.ListItems.Count).ListSubItems.Add , , Cells(L, Col)
Next
For Col = 7 To 9
.ListItems(.ListItems.Count).ListSubItems.Add , , Cells(L, Col).Text
Next
End If
End If
Next
For L = 1 To .ListItems.Count
If Left(.ListItems(L).ListSubItems(6).Text, 1) = "-" Then .ListItems(L).ListSubItems(6).ForeColor = &HFF&
If Left(.ListItems(L).ListSubItems(7).Text, 1) = "-" Then .ListItems(L).ListSubItems(7).ForeColor = &HFF&
If Left(.ListItems(L).ListSubItems(8).Text, 1) = "-" Then .ListItems(L).ListSubItems(8).ForeColor = &HFF&
Next
End With