What i did is...removed this :

oItem.Selected = True
oItem.EnsureVisible
ListView1.SetFocus
Exit For

added:

Dim list_item As ListItem

Set list_item = ListView2.ListItems.Add(, , oItem.Text)
list_item.SubItems(1) = oItem.SubItems(1)


LaVople (maybe you are italian ) thanks for the help!