With Worksheets("Feuil1")
Dim i As Integer
Nl = [Feuil4].Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
For i = 1 To ListView1.ListItems.Count
'Affiche le contenu de la 1ere colonne pour chaque ligne sélectionnée
If ListView1.ListItems(i).Selected = True Then _
.Cells(Nl, 1).Value = ListView1.ListItems(i).Text
Next i
End With