Private Sub ListView1_DblClick()
Dim x As Integer, k As Byte, m As Integer, y As Byte, Lign As Long
Sheets("EXTRACTIONS").Range("A1:IV65536").Clear
Sheets("Feuil1").Range(Cells(1, 1), Cells(1, DerCol)).Copy Sheets("EXTRACTIONS").Range("A1")
m = 1
With ListView1
For x = 1 To ListView1.ListItems.Count
ReDim Preserve Tablo2(1 To DerCol, 1 To m)
Tablo2(1, m) = .ListItems(x).Text
For k = 1 To DerCol - 1
Tablo2(k + 1, m) = .ListItems(x).ListSubItems(k).Text
Next
m = m + 1
Next
End With
With Sheets("EXTRACTIONS")
.Range("A2").Resize(UBound(Tablo2, 2), UBound(Tablo2, 1)) = Application.Transpose(Tablo2)
Lign = .Range("A65536").End(xlUp).Row
.Range("D" & Lign + 1) = "Total"
.Range(.Cells(Lign + 1, 4), .Cells(Lign + 1, DerCol)).Interior.ColorIndex = 6
For y = 5 To DerCol
.Cells(Lign + 1, y) = Application.WorksheetFunction.Sum(.Range(.Cells(2, y), .Cells(Lign, y)))
Next
End With
End Sub