erreur 424 sur filtre(résolu)

'*****************************************************************
' Procédure permettant d'afficher de filtrer cmc sélectionné
' dans la listview
'*****************************************************************
Sub Cmbfi()
Dim f As Worksheet
Dim Lr As Long
Set f = ThisWorkbook.Sheets("Base ")
'Lr = f.Range("A" & Row.Count).End(xlUp).Row
    Lr = f.Cells(65536, 1).End(xlUp).Row
'    For Each c In f.Range("D2:D" & Lr)
' ici deux fois la même colonne dans deux ComboBox différente
'        Me.Cmddebut.AddItem c 
'        Me.Cmdretour.AddItem c ' avec    c cela se remplis pas comme cela (passage en objet seulement)
'    Next c
'    For Each c In f.Range("H2:H" & Lr)
'        Me.Cmd1.AddItem c
'    Next c
'   For Each c In f.Range("B2:B" & Lr)
'        Me.Cmd2.AddItem c
'    Next c
    Me.Cmddebut.List = f.Range(f.Cells(2, 4), f.Cells(Lr, 4)).Value
    ' Ici a vérifier cette combox = Cmdretour colonne 4 déjà remplis en doublon dans votre code (Me.Cmddebut.AddItem c)
    'Me.Cmdretour.List = f.Range(f.Cells(2, 6), f.Cells(Lr, 6)).Value
    Me.Cmd1.List = f.Range(f.Cells(2, 8), f.Cells(Lr, 8)).Value
    Me.Cmd2.List = f.Range(f.Cells(2, 2), f.Cells(Lr, 2)).Value
Set f = Nothing
Lr = Empty
End Sub