With me.MaListBox
.ColumnHeads = False
.ColumnCount = 7
.ColumnWidths = "35;100;40;40;40;60;50"
Nb_List = .ListCount
For i = 0 To Nb_List - 1
x = .List(i) * 100
A1 = Application.VLookup(x, PVLP.Range, 2, False)
A2 = Application.VLookup(x, PVLP.Range, 3, False)
A3 = Application.VLookup(x, PVLP.Range, 4, False)
A4 = Xquantite(i)
A5 = A3 / A1
A6 = A4 / A2
.Column(1, i) = A1
.Column(2, i) = A2
.Column(3, i) = A3
.Column(4, i) = A4
.Column(5, i) = A5
.Column(6, i) = A6
Next i