Erreur1004 erreur définie par l'application ou par l'objet [Résolu/Fermé]

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 :)