Probléme de débogage

Bonjour,
merci de m'aider à résoudre ce probléme sur VBA le plus tot possible , un msg "erreur 6"
voilà mon code:

Sub exo3tv()
Dim i As Integer
Dim j As Integer
For i = 4 To 114
Cells(i, 4).Value = Cells(i, 3).Value - Cells(i + 1, 3).Value
Next i
For i = 4 To 114
Cells(i, 5).Value = ((1 / (1 + Cells(1, 2).Value)) ^ (Cells(i, 2).Value)) * Cells(i, 3).Value
Next i
For i = 4 To 114
Cells(i, 6).Value = ((1 / (1 + Cells(1, 2).Value)) ^ (Cells(i, 2).Value + 1)) * Cells(i, 4).Value
Next i
For i = 4 To 114
Cells(i, 7).Value = Cells(i, 6).Value
For j = i To 114
Cells(i, 7).Value = Cells(j + 1, 6).Value + Cells(i, 7).Value
Next j
Next i
For i = 4 To 114
Cells(i, 8).Value = Cells(i, 7).Value / Cells(i, 5).Value
Next i
For i = 4 To 114
Cells(i, 9).Value = (Cells(i, 7).Value - Cells(i + Cells(2, 2).Value, 7).Value) / Cells(i, 5).Value
Next i
For i = 4 To 114
Cells(i, 10).Value = Cells(i + Cells(2, 2).Value, 5).Value / Cells(i, 5).Value
Next i
For i = 4 To 114
Cells(i, 11).Value = Cells(i, 9).Value + Cells(i, 10).Value
Next i

Cells(3, 4).Value = "dx"
Cells(3, 5).Value = "Dx"
Cells(3, 6).Value = "Cx"
Cells(3, 7).Value = "Mx"
Cells(3, 8).Value = "Ax"
Cells(3, 9).Value = "Ax1:n"
Cells(3, 10).Value = "nEx"
Cells(3, 11).Value = "Ax:n"

End Sub