Erreur9 l'indice n'appartient pas à la sélection

Bonjour,

j'ai l'erreur 9 je ne sais pas pourquoi?
voici le code
Dim CRD() As Double
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim i As Integer
Dim dureerestante As Integer

ReDim CRD(1 To 3000, 3)
j = 1
Do While j < 300 And Application.ThisWorkbook.Worksheets("stock").Cells(1, j) <> "CAPITAL_RESTANT_DU"
j = j + 1
Loop
k = 1
Do While k < 300 And Application.ThisWorkbook.Worksheets("stock").Cells(1, k) <> "TX_PRET"
k = k + 1
Loop
l = 1
Do While l < 300 And Application.ThisWorkbook.Worksheets("stock").Cells(1, l) <> "DUREE_RESTANTE"
l = l + 1
Loop
For i = 2 To 3000
CRD(i, 1) = Application.ThisWorkbook.Worksheets("stock").Cells(i, j)
CRD(i, 2) = Application.ThisWorkbook.Worksheets("stock").Cells(i, k)
CRD(i, 3) = Application.ThisWorkbook.Worksheets("stock").Cells(i, l)
dureerestante = CRD(i, 3)
Next
i = i + 1


Dim amort() As Double
Dim somme1() As Double
Dim somme2() As Double
Dim n As Integer
ReDim amort(1 To 3000, 1 To 10)
n = 1
For n = 1 To dureerestante
amort(1, 1) = CRD(i, 1)
amort(n, 2) = amort(n, 1) * 0.01
amort(n, 3) = amort(n, 1) - amort(n, 2)
amort(n, 4) = (amort(n, 3) * CRD(i, 2)) / (1 - (1 + CRD(i, 2)) ^ (CRD(i, 3) - CRD(i - 1, 3)))
Next
n = n + 1
l'erreur s'affiche pour cette ligne <amort(n, 2) = amort(n, 1) * 0.01>