Dim WithEvents CBC As ComboBoxCasc ' Déclaration d'un objet ComboBoxCasc avec évèvements.
Private Sub Userform_Initialise()
Set CBC = New ComboBoxCasc ' Procure une instance à l'objet.
CBC.CouleurSympa ' Permet de distinguer si les ComboBox contiennent un choix prévu ou non. Peu utile s'ils ont .MatchRequired = True.
CBC.Plage Feuil1.[A2].Resize(Feuil1.[A65536].End(xlUp).Row - 1) ' Indiquer au moins une colonne de la plage du tableau à couvrir.
CBC.Add Me.ComboBox1, "A" ' Enseigne le ComboBox du 1er choix comme devant recevoir des listes de choix prise de la colonne "A"
CBC.Add Me.ComboBox2, "B" ' Enseigne le ComboBox du 2ième choix comme devant recevoir des listes de choix prise de la colonne "B"
CBC.Add Me.ComboBox3, "C" ' Enseigne … etc. Mettez autant de CBC.Add qu'il y a de ComboBox à gérer.
CBC.Actualiser ' Démarre la gestion des ComboBox
End Sub