ComboBox en cascade

Bonjour,

je débute en VBA et j'ai besoin de votre aide

J'ai créer des listes déroulantes en cascade, jusque-là j'ai réussi à résoudre mes problèmes.

Mon problème est le suivant une fois que j'ai choisi une valeur de la deuxième liste déroulante et que je veux la changer , il bloque toujours à la première ligne de la liste déroulante "SousFamille"

    For Each c In f.Range("TB_MACRO_ALIM")      ' on explore la colonne de niveau 1
        If c = Me.Famille And c.Offset(, 1) = Me.SousFamille Then Me.Page = c.Offset(, -1) ' si famille alors on ajoute l'élément de la sous-famille au dictionnaire
    Next c

Merci par avance de votre aide

bonne soirée

Bonsoir et bienvenu(e)

Tu emploies une seule variable pour 2 objets différents

f pour WorkSheet et f pour un Range (je crois)

Merci pour l'aide

l'erreur était bien là, j'ai modifier mon code

je remets le fichier, si cela peut servir à d'autres personnes