recherche selon combobox

Private Sub UserForm_Initialize()
With Sheets("DB")
For i = 2 To .Range("a65000").End(xlUp).Row
If .Cells(i, 1) <> .Cells(i - 1, 3) Then
ComboBox1.AddItem .Cells(i, 1).Value
End If
Next
End With


With Sheets("DB")
For i = 2 To .Range("c65000").End(xlUp).Row
If .Cells(i, 3) <> .Cells(i - 1, 3) Then
[COLOR=Blue][B]ComboBox2.AddItem Format(.Cells(i, 3).Value, "hh:mm")[/B][/COLOR]
End If
Next
End With


With Sheets("DB")
For i = 2 To .Range("c65000").End(xlUp).Row
If .Cells(i, 3) <> .Cells(i - 1, 3) Then
[B][COLOR=Blue]ComboBox3.AddItem Format(.Cells(i, 3).Value, "hh:mm")[/COLOR][/B]
End If
Next
End With

End Sub

Private Sub CommandButton1_Click()
 Dim Trouve As Range, FirstAddress As String

        With Sheets("schd_detail")
            Set Trouve = .Columns("C").Find(ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
            If Not Trouve Is Nothing Then
                FirstAddress = Trouve.Address
                Do
                    If .Range("h" & Trouve.Row).Text >= ComboBox2.Value _
                    And .Range("h" & Trouve.Row).Text <= ComboBox3.Value Then
                      Sheets("schd_detail").Range("J" & Trouve.Row) = 1
                    End If
                    Set Trouve = .Columns("C").FindNext(Trouve)
                Loop While Not Trouve Is Nothing And Trouve.Address <> FirstAddress
            End If
        End With

End Sub