Private Sub UserForm_Initialize()
Dim C As Range
With Lv
With .ColumnHeaders
.Clear
.Add , , "Code", 30
.Add , , "Définition", 130
.Add , , "Montant", 50
End With
End With
For Each C In Feuil4.Range("A1", Feuil4.[A65000].End(xlUp)(1))
Lv.ListItems.Add , , C
Lv.ListItems(Lv.ListItems.Count).ForeColor = C.Interior.Color
Lv.ListItems(Lv.ListItems.Count).ListSubItems.Add , , C(1, 2)
Lv.ListItems(Lv.ListItems.Count).ListSubItems(1).ForeColor = C.Interior.Color
Lv.ListItems(Lv.ListItems.Count).ListSubItems.Add , , Format(C(1, 3), "0.00")
Lv.ListItems(Lv.ListItems.Count).ListSubItems(2).ForeColor = C.Interior.Color
Next
End Sub