Private Sub UserForm_Initialize()
[B]Me.TextBox14.Enabled = False
Me.TextBox24.Enabled = False
Me.TextBox34.Enabled = False[/B]
col = "a"
feuille1 = "Commande"
With ComboBox1
.Clear
.ColumnCount = 4
.ColumnWidths = "50;50;0"
.Style = fmStyleDropDownList '
.BoundColumn = 1 ' combobox1.text contient le nom
For Each cellule In Sheets(feuille1).Range(col & "9:" & col & Sheets(feuille1).Range(col & "65536").End(xlUp).Row)
.AddItem cellule.Value
.List(.ListCount - 1, 1) = cellule.Offset(0, 1).Value
.List(.ListCount - 1, 2) = cellule.Row
Next cellule
End With
End Sub