Erreur1004 erreur définie par l'application ou par l'objet

Bonjour,
l'erreur 1004 erreur définie par l'application ou par l'objet je ne sais vraiment pas quoi faire voici mon code
Option Explicit
Private Sub CommandButton1_Click()
Dim CRD() As Double
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim i 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 = 0 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)
Next
i = i + 1


End Sub
en fait ce code permet de chercher une colonne et de la coller dans une tableau
merci de votre aide :)