For Each Cell In .Range("G2:G" & .Range("G10000").End(xlUp).Row) 'Ingrédients
Me.ComboIngrédient.AddItem
' ListCount détermine le nombre de lignes
Me.ComboIngrédient.List(ComboIngrédient.ListCount - 1, 0) = Cell ' ? (ListCount - 1, 0) = Cell
Me.ComboIngrédient.List(ComboIngrédient.ListCount - 1, 1) = Cell.Row ' ? (ListCount - 1, 1) = Cell.Row
Next
Me.ComboIngrédient.List(ComboIngrédient.ListCount - 1, 1) = Cell.Row 'rajoute une unité
With Me.ComboIngrédient 'avec le Combobox'
.ColumnCount = 3 'il aura 3 colonnes
.ColumnWidths = "140;0;0" 'elles auront pour largeur 140 pour la première et 0 pour les deux autres
'donc une seule Colonne sera visible'
For Each Cell In Ws_Source.Range("G2:G" & Ws_Source.Range("G10000").End(xlUp).Row) 'Ingrédients
.AddItem Cell 'On ajoute une Nouvelle Ligne on y met dans sa première Colonne la valeur de "Cell"
' ListCount détermine le nombre de lignes
.List(.ListCount - 1, 1) = Cell.Offset(0, 1) ' ListCount - 1 pour avoir l'index dans le Combobox qui démarre à 0
'donc si on ajoute une Ligne (AddItem) on aura 1 pour la première donc -1 pour avoir l'index de la première Ligne du Combobox etc
.List(.ListCount - 1, 2) = Cell.Row ' Idem on récupére le Numero de la Ligne dans la BDD
Next
End With