Dim itm as listitem
Set itm = ListView1.ListItems.Add(, , "TOTO", , )
itm.ListSubItems.Add , , "TITI"
itm.ListSubItems.Add , , "TATA"
A condition que dans les proprietes de ton listview dans l'onglet général tu selectionne
View : 3 - lvwReport
et que tu créer tes colones dans l'onglet entete de colone
Michaël.