PRoblème sur boucle For i to

Bonjour,

Je n'arrivep as à faire tourner ma boucle. Il doit y avoir une petite erreur mais je ne la trouve pas. Si quelqu'un pouvait m'aider ? Merci

Sub Macro1()
'
' Macro1 Macro
'

Dim Mois, Ligne, i As Integer

Sheets("Feuil3").Select
Mois = Range("B2").Value
Ligne = Range("B4").Value

Sheets("Data").Select

Range("A1").Select
Rows((Ligne * i + 1) & ":" & (Ligne * i + 1)).Select
Selection.Copy
Rows((Ligne + 1) & ":" & (Ligne + 1)).Select
ActiveSheet.Paste

For i = 0 To i = 5
ActiveCell.Offset(Ligne, 0).Select
ActiveSheet.Paste
Rows((Ligne * (i + 1) + 1) & ":" & (Ligne * (i + 1) + 1)).Select
Next

End Sub