Besoin d'aide avec une formules, trouver une couleur spécifique et la couper et coller dans une autres feuilles

[michellin]

Bonjour a vous tous,

J'ai un fichier sur la feuille1, ma 1er ranger ce sont mes titres, mes donné sont situer de a 2 a m1001. Dans la collonne A je mets en jaune #6 les choses faites. J'aimerais automatiser le tout.
Avoir une macro qui regarderais dans la collone A, quand il trouve une cellule jaune il coupe la ligne et la colle dans la feuille 2 a la suite des autres en partant de la ligne 2, car la ligne 1 est mes titres encore. Bien sur sans jamais effacer de ligne dans la feuille 2. Il faudrait aussi qu'il cherche tout les cellules jaunes et non juste une a la fois. En bonus je ne sais pas si cela est possible mais une fois la ligne coller dans la feuille 2 dans la collonne N mettre la date du jour sans heure. ave

J'ai trouver cette macro sur le net qui fais un peu mes besoins, mais ne fais qu'une ligne a la fois. J'ai bien tenté de la modifier, mais je suis un peu noob en vb, mais j'apprend beaucoup.

Sub tri_couleur()

With Selection.Font
.Color = 6
.TintAndShade = 0
End With

Selection.EntireRow.Copy Sheets("FEUIL2").Cells(Rows.Count, 1).End(xlUp).Offset(1)
Selection.EntireRow.Delete xlShiftUp

End Sub


Merci de m'aider
Michellin