For n = 1 To 6: Me("T" & n) = "": Next
For Li = 3 To Cells(Rows.Count, 7).End(xlUp).Row
If CStr(Cells(Li, Co)) = CStr(C1) Then
L2.AddItem Cells(Li, 2)
For i = 1 To 3
L2.List(L2.ListCount - 1, i) = Cells(Li, i + 2)
Next
L2.List(L2.ListCount - 1, i + 1) = Li
End If
Next