Comment coller la deuxième ligne de ma listview

Bonsoir à vous

D'après ce code, que dois je rajouter pour que la deuxième ligne de ma listview soit copiée et pas uniquement la première ?

'colle le programme
Dim I As Byte
Dim J As Byte
Dim Ligne As Integer

Ligne = 11

With Me.ListView1
'les données
For I = 1 To .ListItems.Count
Ligne = Ligne + 1
Sheets("programme").Cells(Ligne, 5) = .ListItems(I).ListSubItems(1)
Sheets("programme").Cells(Ligne, 6) = .ListItems(I).ListSubItems(2)
Sheets("programme").Cells(Ligne, 7) = .ListItems(I).ListSubItems(3)
Sheets("programme").Cells(Ligne, 8) = .ListItems(I).ListSubItems(4)
Sheets("programme").Cells(Ligne, 9) = .ListItems(I).ListSubItems(5)
Next I

End With

Merci pour votre aide