Sub imprim2()
Sheets("Imprime").[A4:K4000].ClearContents
Dim z As Long
Dim nbrcheck As Integer, k As Integer, lign As Integer
Dim ListViewItem As ListItem
With ListView3
lign = 4
For z = 1 To .ListItems.Count
'For Each ListViewItem In ListView1.ListItems
If .ListItems(z).Selected Then
With Sheets("Imprime")
.Cells(lign, 1) = ListView3.ListItems(z)
.Cells(lign, 1).Offset(0, 1) = ListView3.ListItems(z).ListSubItems(1)
.Cells(lign, 1).Offset(0, 2) = ListView3.ListItems(z).ListSubItems(2)
.Cells(lign, 1).Offset(0, 3) = ListView3.ListItems(z).ListSubItems(3)
.Cells(lign, 1).Offset(0, 4) = ListView3.ListItems(z).ListSubItems(4)
.Cells(lign, 1).Offset(0, 5) = ListView3.ListItems(z).ListSubItems(5)
.Cells(lign, 1).Offset(0, 6) = ListView3.ListItems(z).ListSubItems(6)
.Cells(lign, 1).Offset(0, 7) = ListView3.ListItems(z).ListSubItems(7)
.Cells(lign, 1).Offset(0, 8) = ListView3.ListItems(z).ListSubItems(8)
.Cells(lign, 1).Offset(0, 9) = ListView3.ListItems(z).ListSubItems(9)
.Cells(lign, 1).Offset(0, 10) = ListView3.ListItems(z).ListSubItems(10)
End With
lign = lign + 1
End If
' Next
Next z
End With