Déplacer Lignes d'une feuille à une autre selon leur couleur

Bonjour à tous

Si je poste ce message aujourd'hui c'est que je suis confronté à un challenge et étant débutant en VBA je viens vous demander de l'aide.

Comme l'indique le titre de ce sujet je voudrais je voudrais déplacer le contenu d'un certain nombre de lignes d'une feuille à une autre

Pour ce faire et pour d'autres raisons ces lignes sont colorées en vert et rouge.

J'ai donc voulu avec une boucle "for" faire un balayage qui selon la couleur déplacerait la ligne ou pas.

jusqu'à là tout va bien mais le souci c'est que mes lignes ne sont copiées que dans la colonne A (à la verticale).

Voici ma Macro et je joins le fichier Excel

Merci d'avance !!!

Sub Macro1()
Dim Row As Range

For Each Row In Worksheets("Feuil1").Range("A1:L35") 'nombre de lignes pouvant changer mais pas le nombre de colones

        If Row.Interior.Color = RGB(255, 0, 0) Then  

           Row.Copy Destination:=Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        End If

Next Row

End Sub

Tu peux essayer ainsi :

Sub copie()
Dim i&, ii&
With Sheets("Feuil1")
    For i = 1 To .Cells.Find("*", , , , xlByRows, xlPrevious).Row
        If .Cells(i, 1).Interior.Color = RGB(255, 0, 0) Then
            ii& = Sheets("Feuil2").[A65000].End(xlUp).Row + 1
            .Rows(i).Copy Sheets("Feuil2").Rows(ii)
        End If
    Next i
End With
End Sub

Ca t'évite de boucler la zone complète mais juste la colonne A

Merci beaucoup pour votre aide cela à parfaitement marché !!!

Bonne journée !

Marco