bonjour je cherche à recopier une meme colonne de données sur une autre feuille sur certaines colonnes seulement.

voici mon code :

Code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
compteur = 1
For i = 4 To 1000
 
        'Copie de la colonne que je souhaite copier
   &nbs p;
  worksheets("Feuille1").Rangetoto = worksheets("Feuille2").cells(1,compt eur)
 
        compteur = compteur + 3
&n bsp;   
Next



Rangetoto est un objet range défini ainsi :



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
lignefin = Worksheets("Feuil1").Cells(5, 2).End(xlDown).Row
 
With Worksheets("Feuil1")
    Set Rangetoto = Range(Cells(5, 2), Cells(lignefin, 2))
End With


mais j'ai un message d'erreur à chaque fois si quelqu'un pouvait m'aider...


il semblerait que cela vienne de la variable compteur mais je comprends pas pourquoi