Copier une cellule dans une autre feuille

Bonjour,

Voici une commande simple

Sub get_participans()
    Worksheets("Feuil1").Range("A1").Value = Worksheets("Feuil2").Range("A1").Value
End Sub

Je souhaiterais l´intégrer dans une boucle for (for i allant de 2 à 10 par exemple) pour copier ma cellule feuil1!A1 dans feuil2!A2 etc.

Comment intégrer le i dans la syntaxe ci-dessus?

   Worksheets("Feuil1").Range("Ai").Value = Worksheets("Feuil2").Range("Ai").Value

> ne fonctionne pas

Bonjour

Une version simple

Sub get_participans()
  For i = 1 To 20
    Worksheets("Feuil2").Range("A" & i).Value = Worksheets("Feuil1").Range("A" & i).Value
  Next i
End Sub

une autre version

Sub get_participansBis()
  Worksheets("Feuil2").Range("A1").Resize(20, 1).Value = Worksheets("Feuil1").Range("A1").Resize(20, 1).Value
End Sub

Merci Banzai64

Ok je garde la syntaxe de côté je vais encore en avoir besoin