Bonjour
ses pas claire ta listbox voila un exemple
Private Sub UserForm_Initialize()
ComboBox1.List = Array("Rouenel", "Rexel", "Tanguy", "Leader Mat", _
"Castorama", "Point P", "Dispano", "Cedeo", "Kerbrat", "Qama", _
"Foussier", "Wurth", "Berner")
End Sub
Private Sub UserForm_Activate()
'activation du chargement de la listbox
Call ChargementListBox
End Sub
Sub ChargementListBox()
Set S = Sheets("Feuil1")
'nettoyage
ListBox1.Clear
With ListBox1
'source des données sur le feuille
' .RowSource = "C7:D2356"
'affichage entête colonne
.ListStyle = fmListStyleOption
.ColumnHeads = False 'où true
'nombre de colonne
.ColumnCount = 2
'largeur de la colonne
.ColumnWidths = "50;50"
.List = S.Range("C7:D" & S.Range("C" & Rows.Count).End(xlUp).Row).Value
End With
End Sub
A+
Maurice