Private Sub CommandButton4_Click()
Dim i As Byte
Dim j As Byte
Dim k As Byte
Dim derligne As Variant
Dim travail As Variant
Dim LstItem As Variant
k = 0
With Sheets("travail")
Sheets("travail").Select
derligne = Range("B65536").End(xlUp).Row
Set LstItem = ListView1.SelectedItem
If LstItem Is Nothing Then
MsgBox "Veuillez séléctionner au moins une ligne."
Exit Sub
Else
For i = 1 To ListView1.listitems.Count
If ListView1.listitems(i).Selected = True Then
k = k + 1
Cells(derligne + k, 1) = ListView1.listitems(i).Text
For j = 1 To ListView1.columnHeaders.Count - 1
Cells(derligne + k, j + 1) = ListView1.listitems(i).listSubItems(j).Text
Next j
End If
Next i
End If
End With
End Sub