Private Sub UserForm_Initialize()
Dim Plage As Range
Dim i As Integer
Dim Ncol
Dim Tablo()
Ncol = 2
Me.ComboBox1.Clear
With Sheets("Données")
Set Plage = .Range("A2", .Range("A" & Rows.Count).End(xlUp))
End With
ReDim Tablo(0 To Plage.Rows.Count - 1, 1 To 2)
For Each cell In Plage
Tablo(i, 1) = cell.Text
Tablo(i, 2) = cell.Offset(, 2).Text
i = i + 1
Next
Me.ComboBox1.list = Tablo()
End Sub