Dim i As Integer
Dim li As Long
On Error Resume Next
With Worksheets(LabFeuil.Caption)
On Error Resume Next
nl = Sheets(LabFeuil.Caption).Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
For li = 1 To ListView1.ListItems.Count
.Cells(nl, 1).Value = ListView1.ListItems(li)
.Cells(nl, 2).Value = ListView1.ListItems(li).ListSubItems(2)
.Cells(nl, 3).Value = ListView1.ListItems(li).ListSubItems(3)
.Cells(nl, 4).Value = Labpart.Caption
.Cells(nl, 5).Value = ListView1.ListItems(li).ListSubItems(5)
Next li
End With