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
---------------------