creer une egaliter entre listview1 et listwiew2

Private Sub CommandButton8_Click
For Each Item In Userform1.Listview2.Value
With Userform1.Listview2
.AddItem Item
End With 
Next Item 
end sub

Private Sub CommandButton1_Click()
Dim ItemName As String
    For Each Item In Me.ListView2.ListItems
        With Me.ListView1
            .ListItems.Add , , Item
        End With
    Next Item
End Sub

Private Sub UserForm_Initialize()
 With Me.ListView2
    .ListItems.Add , , "A"
    .ListItems.Add , , "B"
    .ListItems.Add , , "C"
    .ListItems.Add , , "D"
 End With
End Sub

Private Sub CommandButton1_Click()
  Dim n As Byte, k as byte
  'de 1 vers 2
  With ListView2
    .ListItems.Clear
    .ColumnHeaders.Clear    
For n = 1 To ListView1.ListItems.Count
      .ListItems.Add , , ListView1.ListItems(n)
      For k = 1 To 5
        .ListItems(.ListItems.Count).ListSubItems.Add , , ListView1.ListItems(n).ListSubItems(k)
      Next
    Next
 End With
End Sub

Dim n As Byte, k As Byte
  'de 1 vers 2
  With ListView2
    '.ListItems.Clear
    '.ColumnHeaders.Clear
For n = 1 To ListView1.ListItems.Count
      .ListItems.Add , , ListView1.ListItems(n)
      For k = 1 To 5
        .ListItems(.ListItems.Count).ListSubItems.Add , , ListView1.ListItems(n).ListSubItems(k)
      Next
    Next
 End With