Private Sub Copie_lignes_Click()
'copie les lignes selectionnées dans la colonne G
Dim i, j As Integer
Dim rg As Range
ListView1.MultiSelect = True
With UserForm1.ListView1
'on boucle sur tous les éléments du Listview
For i = 1 To .ListItems.Count
'et on copie uniquement les items sélectionnées
If .ListItems(i).Selected = True Then
Set rg = Sheets("Transfert").Range("A65536").End(xlUp).Offset(1, 0) 'cellule destination
'copie des champs voulus
rg = .ListItems(i)
For j = 1 To 6 ' NOTA: gérer le nb de sous-items
rg.Offset(0, j) = .ListItems(i).ListSubItems(j)
Next
End If
Next i
End With
End Sub