Macro pour ne garder qu'une couleur

[falafala]

Bonjour à tous je suis un petit nouveau sur le forum
Je cherche à réaliser une macro dans le but de sélectionner des cellules d'une couleur particulière afin d'aller les coller sur une autre feuille.
J'aimerais que cette macro traite les lignes de mon documents principal ligne par ligne, et si il trouve la couleur sur une ligne, j'aimerais qu il recopie la ligne sur le nouveau document, à la suite de la dernière ligne copiée .Pour précision, ma page principale ne possède que 6 colonnes.

Merci d'avance à ceux qui m'aideront.

 

[manuel]

salut falafala,

essaye çà : copie de la feuille 2 du classeur2 vers la feuille1 du même classeur
salut

--------------------------------------------

Sub copy_selon_couleur()
'

Dim ligne As Integer, l As Integer, c As Integer

ligne = Workbooks("classeur2").Sheets("feuil1").Range("a1").CurrentRegion.Rows.Count + 1
lfin = Workbooks("classeur2").Sheets("feuil2").Range("a1").CurrentRegion.Rows.Count

For l = 1 To lfin
For c = 1 To 6
If Cells(l, c).Interior.ColorIndex = 36 Then
Cells(l, c).EntireRow.Copy Workbooks("classeur2").Sheets("feuil1").Rows(ligne)
ligne = ligne + 1
Exit For
End If
Next c
Next l

End Sub
---------------------