Private Sub Ini()
Dim CTRL As Control 'Variable pour la collection des controls
Dim L As Long 'Variable pour connaitre le numéro de derniere ligne
Dim i, y As Integer 'Variable pour connaitre incrémenter les Data
'On Vide tous les Controls Combobox
For Each CTRL In Me.Controls
If TypeOf CTRL Is MSForms.ComboBox Then CTRL.Clear
Next CTRL
Set WS = ThisWorkbook.Worksheets("PARAMETRE") 'On identifie l'objet pour la feuille de travail
'Pour éviter les fash d'écran pour le select ci dessous
Application.ScreenUpdating = False
'WS.Select 'On sélectionne la feuille sinon bug si elle ne l'est pas
For y = 1 To 54
Select Case y
Case 1 To 10, 12 To 15, 20 To 31, 34 To 37, 39 To 52, 54
L = WS.Cells(Cells.Rows.Count, y).End(xlUp).Row
For i = 2 To L 'Boucle sur lignes de la feuille :2 jusqu'à dernière
With Me.Controls("ComboBox" & y)
.AddItem WS.Cells(i, y) 'On ajoute dans les ComboBox toutes les valeurs, cellules après cellules
End With
Next
End Select
Next y
Application.ScreenUpdating = True
End Sub