Pb ListBox et ComboBox dates

Private Sub ComboDates_Change()

    UserForm1.ListBox1.Clear
    
    With Sheets("Feuil1")
        .Range("I16").Value = [B]CDate(ComboDates)[/B]
        ListBox1.List() = .Range("J16:M" & .Range("M65536").End(xlUp).Row).Value
    End With
    
End Sub

Private Sub ComboDates_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

ComboDates = Format(ComboDates, "mm/dd/yyyy")
    UserForm1.ListBox1.Clear
    
    With Sheets("Feuil1")
        .Range("I16").Value = ComboDates.Value
        ListBox1.List() = .Range("J16:M" & .Range("M65536").End(xlUp).Row).Value
    End With
End Sub