XL 2021 Alimenter un second combobox et textbox après la selection d'un premier combobox

[ans0ul]

Bonjour
J'ai un problème quand je sélectionne une date dans cbbox1 rien n'affiche dans cbbox2 et cbbox4.
J'ai ajouté le format de C(Lg,2) avant, mais toujours la même chose.
Voici mon code ci-dessous
Merci pour votre aide
'Toutes les variables sont déclareés dans Public

Private Sub CbBox1_Change() 
    Set S = CreateObject("Scripting.Dictionary")
    For Lg = 2 To UBound(C)
    'C(Lg, 2) = Format(C(Lg, 2), "dd/mm/yyyy")
        If C(Lg, 2) = CbBox1.Value Then S(C(Lg, 7)) = ""
    CbBox2.List = S.keys
    CbBox4.Value = CbBox1.Value
End Sub
Private Sub UserForm_Initialize()
    C = Feuil6.Range("A1:G" & Feuil6.Range("A65000").End(xlUp).Row).Value
    Set S = CreateObject("Scripting.Dictionary")
    For Lg = 2 To UBound(C)
        S(C(Lg, 2)) = ""
    Next Lg
    CbBox1.List = S.keys
    
    Affiche_Lvw1
End Sub

 

[Oneida]

Bonjour,
Un fichier serait le bienvenu