Private Sub UserForm_Initialize()
Dim x
With Sheets("Feuil1")
derlig = .Cells(.Rows.Count, "a").End(xlUp).Row
If derlig > 1 Then
For Each x In Feuil1.Range("A2:A" & derlig)
If x <> "" Then ComboBox1.AddItem x
Next x
End If
End With
End Sub
Private Sub UserForm_Initialize()
Dim lf As Long 'déclare la variable lf (Ligne de Fin)
Feuil1.Select
lf = Range("A15").End(xlUp).Row 'définit la variable lf
ComboBox1.Clear 'vide la ComboBox1
'remplit la ComboBox4
For Each cel In Range("A2:A" & lf) 'boucle sur toutes les cellule de A1 à A_lf
'condition : si la cellule n'est pas vide ajoute son contenu à la ComboBox1
If cel.Value <> "" Then ComboBox1.AddItem cel.Value
Next cel 'prochaine cellule 'Dim Malist As Range
'With Feuil1
' Set Malist = .Range("A1:A10")
'End With
'Dim l As Integer
'UserForm1.ComboBox1.List = Malist.Value
End Sub