Listbox critere sur textbox & sur combobox

Private Sub CommandButton1_Click()
    Dim c As Range
    [COLOR=red][B]Dim condition As Boolean
[/B][/COLOR]    Feuil1.Select
    ListBox1.Clear
    If Not IsDate(TextBox1) Or Not IsDate(TextBox2) Then _
       MsgBox "Une date n'est pas valide !": Exit Sub
    For Each c In Range("b2:b" & Range("b65536").End(xlUp).Row)
        [COLOR=red][B]condition = c.Value >= CDate(TextBox1) And c.Value <= CDate(TextBox2)
        If ComboBox1.ListIndex > -1 Then condition = condition And c.Offset(, 1) = ComboBox1.Value
[/B][/COLOR]        If condition Then
            With UserForm1.ListBox1
                .AddItem c.Offset(0, -1).Value
                .List(.ListCount - 1, 1) = c.Offset(0, 0).Value
                .List(.ListCount - 1, 2) = c.Offset(0, 1).Value
                .List(.ListCount - 1, 3) = c.Offset(0, 3).Value
            End With
        End If
    Next c
End Sub