Private Sub UserForm_Initialize()
Dim i As Long, j As Long, derlig As Long
Dim ws As Worksheet
Set ws = Sheets("BD")
derlig = ws.Cells(Rows.Count, 1).End(xlUp).Row
On Error Resume Next
With ListBoxLocataire
.ColumnCount = 15
.ColumnWidths = "130;80;200;100;80;80;100;0;0;0;0;0;0;0;0"
For i =2 To derlig
.AddItem ws.Cells(i, 1)
For j = 1 To 15
.List(ListBoxLocataire.ListCount - 1, j) = ws.Cells(i, j)
Next j
Next
End With