Private Sub UserForm_Initialize()
Dim der As Integer, i As Integer, j As Integer
Dim hwnd As Long, exLong As Long, zFactor As Integer, Style As Long
[COLOR=Blue]' ton code....[/COLOR]
[COLOR=Green]'définit le nombre de colonnes dans la ListBox[/COLOR]
ListBox1.ColumnCount = 5
[COLOR=Green] 'Définit la largeur des 5 colonnes[/COLOR]
ListBox1.ColumnWidths = "47;150;160;60;1"
ListBox1.TextAlign = fmTextAlignRight
der = Sheets("Liste").Range("A65536").End(xlUp).Row
For i = 0 To der - 2
With ListBox1
.AddItem Sheets("Liste").Cells(i + 2, 1)
End With
For j = 1 To 3
ListBox1.List(i, j) = IIf(j = 3, Format(Cells(i + 1, j + 1), "# ###.00"), Cells(i + 1, j + 1))
Next
Next
With Sheets("Quittance")
[COLOR=Blue]' ton code....[/COLOR]