Bonjour
1er point à corriger.
- Enlever "liste" de la propriété Rowssource de votre combobox1 dans l'usf
- Mettez ensuite ce code dans l'us
Private Sub UserForm_Initialize()
Dim c As Range
Dim tablo As Collection
Set tablo = New Collection
On Error Resume Next
With Sheets("Feuil1")
For Each c In .Range("M2:M" & .Range("M" & .Rows.Count).End(xlUp).Row)
tablo.Add c.Value, CStr(c.Value)
Next c
On Error GoTo 0
For Each Item In tablo
Me.ComboBox1.AddItem Item
Next
End With
End Sub
2. Pour la liste, quelles sont les colonnes que vous voulez charger ? Pas toute je suppose
3. Votre prog Excel est sous windows ?