Copier coller les cellules les unes en dessous

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, par exemple coller une premiere cellule en A1 puis la suivante en A2 etc ...

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

Bonjour ,

Mettre un fichier-exemple en pièce jointe peut aider

sinon voici une macro restituant dans la colonnes A de la feuille "restitution" les valeurs des cases de couleur jaune de la colonne A de la feuille "Traitement"

Sub test()

Dim i, j As Integer

i = 2
j = 1

While IsEmpty(Range("Traitement!A" & i)) = False
    If Range("Traitement!A" & i).Interior.ColorIndex = 6 Then
        Range("Restitution!A" & j).Value = Range("Traitement!A" & i)
        j = j + 1
    End If
    i = i + 1
Wend

End Sub

Cordialement

ok merci pour votre aide