Private Sub CommandButton3_Click()
Dim Lig As Long, Col As Long, DerLig As Long
With Worksheets("Feuil1")
For Lig = 1 To ListView1.ListItems.Count
DerLig = .Range("M" & Rows.Count).End(xlUp).Offset(1, 0).Row
' Inscrit le détail des colonnes
.Range("M" & DerLig).Value = ListView1.ListItems(Lig).Text
.Range("N" & DerLig).Value = ListView1.ListItems(Lig).ListSubItems(1).Text
.Range("O" & DerLig).Value = ListView1.ListItems(Lig).ListSubItems(2).Text
.Range("P" & DerLig).Value = ListView1.ListItems(Lig).ListSubItems(3).Text
Next Lig
End With
End Sub