Private Sub ListBox2_Change()
Set mondico = CreateObject("Scripting.Dictionary")
For Each C In Range(f.[A2], f.[A65000].End(xlUp))
If C = Me.ListBox1 And C.Offset(, 1) = Me.ListBox2 Then
mondico(C.Offset(, 2)) = C.Offset(, 2)
Me.CheckBox1.Value = False
End If
Next C
If mondico.Count > 0 Then
Temp = mondico.items
Call Tri(Temp, LBound(Temp), UBound(Temp))
Me.ListBox3.List = Temp
End If
End Sub