Liste deroulante dans un Userform

Option Explicit
Private Sub UserForm_Initialize()
' Procédure permettant  d'initailiser
' les données de la liste Rubrique.
Dim colonne As Long
    ' Initialisation des Variables.
    colonne = 2 ' Numéro de la Première colonne.
    ' Création d'une boucle pour charger toutes les rubriques.
    With Sheets("Donnees")
        Do While .Cells(2, colonne).Value <> "" ' Tant qu'il y a des valeurs sur la ligne 2.
            FrmSaisie.CboRubriques.AddItem .Cells(2, colonne).Value
            colonne = colonne + 1
        Loop
    End With
End Sub
Private Sub CboRubriques_Change()
' Procédure permettant  d'initialiser
' les données de la liste Sous-Rubrique.
Dim i As Long
Dim j As Long
Dim colonne As Long
    ' Initialisation variables.
    i = 2
    ' On vide la liste des sous-rubriques.
    FrmSaisie.CboSousRubriques.Clear
    ' On travaille sur la feuille données
    With Sheets("Donnees")
        ' On boucle pour récupérer les sous rubriques de chaque rubriques.
        Do While .Cells(2, i).Value <> ""
            ' On test que le nom de rubriques soit bien identique.
            If .Cells(2, i).Value = FrmSaisie.CboRubriques.Value Then ' Si oui
                ' Récupération du N° de colonne
                colonne = .Cells(2, i).Column
            End If
            i = i + 1
        Loop
        ' On initialise le numéro de ligne à 3.
        j = 3
        ' On boucle sur les colonnes pour récupérer les sous-rubriques.
        Do While .Cells(j, colonne).Value <> ""
            ' On charge les villes dans la liste déroulante
            FrmSaisie.CboSousRubriques.AddItem .Cells(j, colonne)
            j = j + 1
        Loop
    End With
    ' On affiche la première valeur par défaut.
    CboSousRubriques.ListIndex = 0
End Sub
Private Sub BtnFermeture_click()
    Unload Me
End Sub