Private Sub CommandButton5_Click() 'valider
Dim nbrcheck As Integer, k As Integer, lign As Integer
Dim ListViewItem As ListItem
For Each ctrl In Me.Frame3.Controls
If ctrl.Value = True Then
sh = ctrl.Caption
'MsgBox sh
End If
Next
With ListView1
lign = 5
For z = 1 To .ListItems.Count
'For Each ListViewItem In ListView1.ListItems
If .ListItems(z).Checked Then
With Sheets("essai")
.Cells(2, 4) = ListView1.ListItems(z).ListSubItems(1)
.Cells(lign, 2) = ListView1.ListItems(z).ListSubItems(2)
.Cells(lign, 2).Offset(0, 1) = ListView1.ListItems(z).ListSubItems(3)
.Cells(lign, 2).Offset(0, 2) = ListView1.ListItems(z).ListSubItems(4)
.Cells(lign, 2).Offset(0, 3) = ListView1.ListItems(z).ListSubItems(5)
.Cells(lign, 2).Offset(0, 4) = ListView1.ListItems(z).ListSubItems(6)
End With
lign = lign + 1
End If
' Next
Next z
End With
End Sub