Re,
Je ne maitrise pas trop les listbox
Un essai....mais ça rame un peu pour le chargement de la listbox....
Dans l'attente d'une meilleure proposition....
Private Sub UserForm_Initialize()
Dim i As Integer, dl As Integer
With Sheets("bddcli")
dl = .Range("A" & Rows.Count).End(xlUp).Row
j = 0
For i = 2 To dl
Me.lbxBase.ColumnCount = 10
Me.lbxBase.ColumnWidths = "20;20;60;50;130;40;60;20;20;20"
Me.lbxBase.AddItem
Me.lbxBase.Column(0, j) = .Cells(i, 1)
Me.lbxBase.Column(1, j) = .Cells(i, 2)
Me.lbxBase.Column(2, j) = .Cells(i, 3)
Me.lbxBase.Column(3, j) = .Cells(i, 4)
Me.lbxBase.Column(4, j) = .Cells(i, 5)
Me.lbxBase.Column(5, j) = .Cells(i, 6)
Me.lbxBase.Column(6, j) = .Cells(i, 7)
Me.lbxBase.Column(7, j) = .Cells(i, 8)
Me.lbxBase.Column(8, j) = .Cells(i, 9)
Me.lbxBase.Column(9, j) = .Cells(i, 10)
j = j + 1
Next i
End With
cbxFidelite.AddItem ("")
cbxFidelite.AddItem ("Oui")
cbxFidelite.AddItem ("Non")
lblDateactu.Caption = Format(Date, "ddd d mmm yyyy")
End Sub
Cordialement,