Erreur 9 l'indice n'appartient pas a la sélection

Sub exo2()
Dim i As Integer
For i = 0 To Cells(3, 4).Value
Cells(i + 9, 1).Value = i
Next i
Cells(8, 1).Value = "k"
For i = 0 To Cells(3, 4).Value
Cells(i + 9, 2).Value = Cells(1, 2).Value * ((1 + Cells(2, 4).Value) ^ Cells(3, 4).Value - (1 + Cells(2, 4).Value) ^ Cells(i + 9, 1).Value) / (((1 + Cells(2, 4).Value) ^ Cells(3, 4).Value) - 1)
Next i
a = Cells(1, 6).Value
For i = 0 To Cells(3, 4).Value
Feuil2.Activate
Sheets("Feuille 1").Cells(i + 9, 3).Value = (1 + (Int((i + 9) / 12) - (i + 9) / 12)) * Sheets("Feuille 2").Cells(Int((i + 9) / 12) + a, 2) + ((i + 9) / 12) - (Int((i + 9) / 12)) * Sheets("Feuille 2").Cells(Int((i + 9) / 12) + a + 1, 2)