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