Private Sub UserForm_Initialize()
Dim FL1 As Worksheet, Cell As Range, Plage As Range
Set FL1 = Worksheets("0.Prix Unitaires")
With FL1
Set Plage = .Range("Prix")
For Each Cell In Plage
MsgBox Plage.Rows.Count
i = 0
Me.ComboBox1.Clear
Me.ComboBox1.AddItem
Me.ComboBox1.List(i, 0) = Cell
Me.ComboBox1.List(i, 1) = Cell.Row
i = i + 1
Next Cell
Me.ComboBox1.ListIndex = 0
End With
End Sub