Private Sub UserForm_Initialize()
Dim nomfeuille1 As String
Dim col As String
Dim cellule As Range
Dim Ligdep As Integer
'paramètre
col = "b"
nomfeuille1 = "XXXX-YYY"
Ligdep = 6
'
With ComboBox1
.Clear
.ColumnCount = 3
.ColumnWidths = "60;40;0"
.Style = fmStyleDropDownList '
.Width = 100
'.BoundColumn = 1 ' combobox1.text contient le nom
For Each cellule In Sheets(nomfeuille1).Range(col & Ligdep & ":" & col & Sheets(nomfeuille1).Range(col & Columns(1).Cells.Count).End(xlUp).Row)
.AddItem cellule.Value
.List(.ListCount - 1, 1) = "XXX"
.List(.ListCount - 1, .ColumnCount - 1) = cellule.Address
Next cellule
col = "g"
For Each cellule In Sheets(nomfeuille1).Range(col & Ligdep & ":" & col & Sheets(nomfeuille1).Range(col & Columns(1).Cells.Count).End(xlUp).Row)
.AddItem cellule.Value
.List(.ListCount - 1, 1) = "YYY"
.List(.ListCount - 1, .ColumnCount - 1) = cellule.Address
Next cellule
End With
End Sub