Re,
Pour te permettre d'avoir un point de départ ... à tester ... ( car je ne l'ai pas fait ...)
Dim li As ListItem
Dim I
With ListView1
.View = lvwReport
With .ColumnHeaders
.Clear
.Add , , "Marque", 40
.Add , , "Prix Ancien", 30
.Add , , "Top", 10
.Add , , "Prix Nouveau", 30
.Add , , "Top", 10
.Add , , "Différence", 20
End With
For I = 1 To mcolMarques.Count
Set li = .ListItems.Add(, , mcolMarques(I).Marque)
li.SubItems(1) = sMtPrec
li.SubItems(2) = sTopPrec
li.SubItems(3) = sMtA
li.SubItems(4) = sTopA
li.SubItems(5) = sVariation
Next I
End With
J'espère que cela pourra t'aider ...