VBA UserForm ListBox boucle

Bonjour,
Comment on fais pour faire une boucle qui va changer de ligne dans un listbox.
Voici le code.

Private Sub CommandButton1_Click()
Unload UserForm6
Load UserForm7
UserForm7.Show
End Sub

Private Sub CommandButton2_Click()
Unload UserForm6
Range("B12").Select
Selection.ClearContents
End Sub

Private Sub CommandButton3_Click()
Unload UserForm6
End Sub

Private Sub CommandButton4_Click()
With Me.ListBox1
For I = 0 To .ListCount - 1
If .Selected(I) = True Then
y = y + 1
Range("G12:G35" & y).Value = .List(I)
End If
Next I
End With
End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub TabStrip1_Change()
Load UserForm7
End Sub

Regarder a Commandebutton4