XL 2013 je cherche à lier une combox qui est relié avec les onglets mois Janvier,févier ....

je n arrive pas affaire fonctionner mon formulaire de saisie
Private Sub UserForm_Initialize()
Dim Feuille As Worksheet
Dim colonne As Integer

'Nous parcourons toutes les feuilles du classeur
For Each Feuille In Worksheets

Select Case Feuille.CodeName 'Codename étant le nom de code de la feuille
'On retire dans la combobox les feuilles 1, 2 et 3
Case "Feuil1", "Feuil14", "Feuil0"

'et on prend toutes les autres
Case Else
'On charge les noms des feuilles dans la liste déroulante
Me.CboMois.AddItem Feuille.Name
End Select

Next Feuille

dernier_ligne = Cells.SpecialCells(xlCellTypeLastCell).Row
Private Sub CboMois_Change()
Cont1.Clear

Dim no_colonne As Integer, nb_lignes As Integer
no_colonne = CboMois.ListIndex + 7
nb_lignes = Cells(1, no_colonne).End(xlDown).Row
For s = 2 To nb_lignes
Cont1.AddItem Cells(s, no_colonne)
Next
il dois pourvoir fonctionné sur les 12 onglet
si vous avez une solutions ?
Merci pour votre aide .