Private Sub Command1_Click() ' test les selecteds dans la collection. For Each itm In ListView1.ListItems ' Si non vide : If Not (ListView1.SelectedItem Is Nothing) Then ' Si selectionné : If itm.Selected Then TestKey = ListView1.SelectedItem.Key bOk = False ' Test la valeur Key et prend l'index du lV2. For Each itm2 In ListView2.ListItems If itm2.Key = TestKey Then bOk = True: MyIndex = itm2.Index Next itm2 'Efface son entrée si existante. If bOk Then ListView2.ListItems.Remove MyIndex End If End If Next End Sub Private Sub Form_Load() Dim a As Integer ' Init ListView1 et ListView2 For a = 1 To 10 ListView1.ListItems.Add a, "REC" & a, "Hello " & a Next For Each itm In ListView1.ListItems ListView2.ListItems.Add itm.Index, itm.Key, itm.Text Next End Sub