Copier datatables excel sur la nouvelle feuille de calcul Erreur 1004

J'essaie de copyr certaines informations des cellules vers une autre feuille de calcul. J'ai une boucle For qui boucle les lignes. Le programme est bloqué lorsque j'essaie de copyr les cellules dans la nouvelle feuille de calcul. Devrais-je utiliser la gamme? Et dois-je dire la feuille de calcul avant les cellules?

Ce n'est qu'un exemple du code:

Set myOtherSheet = ThisWorkbook.Sheets("Sheet2") For Each WkSht In ThisWorkbook.Worksheets If WkSht.Name = "Sheet1" Then j = 0 For r = 6 To 1000 myOtherSheet.Cells(j, 1).Value = WkSht.Cells(r, 2) myOtherSheet.Cells(j, 2).Value = Match 

Ici, l'erreur que je reçois est une erreur définie par l'object 1004

Peut-être causé par j = 0 .. il n'y a pas de lignes 0 .. au less il devrait être …

 j = 1