Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer
'Boucle sur toutes les lignes
For i = 1 To ListView1.ListItems.Count
Sheets("Devis").Cells(i, 1) = ListView1.ListItems(i).Text
'Boucle sur les colonnes
For j = 1 To ListView1.ColumnHeaders.Count - 1
Sheets("Devis").Cells(i, j + 1) = ListView1.ListItems(i).ListSubItems(j).Text
Next j
Next i
End Sub