Combobox en cascade

Private Sub UserForm_Initialize()
Dim Tv(), Région(1 To 50) As String, Déptmt As New Dictionary, NumVille As New Dictionary, L As Long, N As Long, Z As String
Set CC = New ComboBoxCasc
CC.Plage Feuil3.[A2]
CC.Add Me.Region, "B"
CC.Add Me.Département, "C"
CC.Add Me.NumVille, "A"
'CC.Actualiser remplacé par :

Tv = PlgUti(Feuil4.[A1]).Value
For L = 1 To UBound(Tv): Région(Tv(L, 1)) = Format(Tv(L, 1), "00") & " - " & Tv(L, 2): Next L

Tv = PlgUti(Feuil5.[A2]).Value
For L = 1 To UBound(Tv): Z = Tv(L, 1): If Len(Z) < 2 Then Z = "0" & Z
   Déptmt.Add Tv(L, 1), Z & " - " & Tv(L, 2): Next L

Tv = PlgUti(Feuil3.[A2]).Value
For L = 1 To UBound(Tv): NumVille.Add Tv(L, 1), Tv(L, 1) & " - " & Tv(L, 5): Next L

With CC.PlgTablo: CréerTabDicoSpécif .Columns("B"), .Columns("C"), .Columns("A"): End With
For L = 1 To UBound(TabDico)
   TabDico(L, 1) = Région(TabDico(L, 1))
   TabDico(L, 2) = Déptmt(TabDico(L, 2))
   TabDico(L, 3) = NumVille(TabDico(L, 3)): Next L
CC.DicArbo LeDictArbo
End Sub