copier-coller des cellules les unes sous les autres

[anisse9]

Bonjour,

je souhaiterais copier des cellules dans une feuille ("Traitement", ceux qui sont coloriés en jaune) puis les coller dans une autre feuille ("Restitution") mais les unes sous les autres, je ne vois pas comment faire

Voici mon code :

For i = 2 To Range("A65635").End(xlUp).Row
If Range("A" & i).Interior.ColorIndex = 6 Then
Range("A" & i).Select
Selection.Copy
Sheets("Restitution").Select
ActiveSheet.Paste
Sheets("Traitement").Select
End If
Next
End Sub


Merci de votre aide