...................................................
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Checked = True Then
ligne2 = Mid(ListView1.ListItems(i).Key, 2, 50)
dl1 = Sheets(nomf2).Range("A65536").End(xlUp).Row + 1
' ecriture de la date
Sheets(nomf2).Cells(dl1, 1) = date1 ' variable publique
' recopie des données
For j = 1 To nbcolonne
Sheets(nomf2).Cells(dl1, j + 1) = Sheets(nomf1).Cells(ligne2, j)
Next j
' ajout des commentaires
Sheets(nomf2).Cells(dl1, nbcolonne +1 ) = commentaire1
Sheets(nomf2).Cells(dl1, nbcolonne +2 ) = commentaire2
ListView1.ListItems(i).Checked = False
End If
Next i
...................................................