Compteur listview

Bonjour tout le monde vous trouverez ci dessous mon code vba ,

quand je lance ma listview toutes les lignes sont selectionner alors que je veux selectionner que 12 lignes par 12 jusqu'a la fin mais j'arrive pas help please .

meme si je fais i = 1 à 11 ca marche pas que les 12 premieres lignes sont prises et non le reste .

Private Sub CommandButton3_Click()
Dim i As Long
Dim cell As Range
Application.DisplayAlerts = False
Sheets.Add

For i = 1 To ListView1.ListItems.Count

With ListView1.ListItems(i)

TextBox2.Value = .ListSubItems(1)
TextBox3.Value = .ListSubItems(2)
TextBox4.Value = .ListSubItems(4)
TextBox5.Value = .ListSubItems(5)
TextBox6.Value = .ListSubItems(6)
TextBox7.Value = .ListSubItems(7)
TextBox8.Value = .ListSubItems(8)
TextBox9.Value = .ListSubItems(9)
TextBox10.Value = .ListSubItems(12)
TextBox11.Value = .ListSubItems(13)
TextBox12.Value = .ListSubItems(14)
TextBox13.Value = .ListSubItems(15)
TextBox14.Value = .ListSubItems(16)
TextBox16.Value = .ListSubItems(17)

End With

Dim lr As Long

lr = Cells(Rows.Count, 1).End(xlUp).Row + 1

Columns("A:B").ColumnWidth = 40

Range("A" & lr).Value = "N°Commande : " & UserForm1.TextBox1.Value & Chr(13) & Chr(10) & "Compte client : " & UserForm1.TextBox2.Value & Chr(13) & Chr(10) & "Nom client :" & UserForm1.TextBox3.Value & Chr(13) & Chr(10) & "Finition : " & UserForm1.TextBox4.Value & Chr(13) & Chr(10) & "Taille mécanisme : " & UserForm1.TextBox5.Value & "Coloris PP : " & UserForm1.TextBox6.Value & Chr(13) & Chr(10) & "Ref client : " & UserForm1.TextBox10.Value

Range("B" & lr).Value = "Ø de tube : " & UserForm1.TextBox7.Value & Chr(13) & Chr(10) & "Quanité : " & UserForm1.TextBox8.Value & Chr(13) & Chr(10) & "Largeur HT : " & UserForm1.TextBox9.Value & Chr(13) & Chr(10) & "Toile : " & UserForm1.TextBox12.Value & " " & "Tube : " & UserForm1.TextBox13.Value & " " & "PP : " & UserForm1.TextBox14.Value & Chr(13) & Chr(10) & "BDC : " & UserForm1.TextBox11.Value & Chr(13) & Chr(10) & UserForm1.TextBox16.Value

Next i