Salut Georges,
Une boucle For Each pour tester la couleur de chaque cellule devrait convenir :
Private Sub CommandButton1_Click()
Dim CL As Range
Dim Ligne As Long
Ligne = 1
Feuil2.Range("A2:B25").ClearContents
For Each CL In Range("A2:A25")
If CL.Interior.ColorIndex = 3 Then
Ligne = Ligne + 1
Feuil2.Range("A" & CStr(Ligne)) = CL
Feuil2.Range("B" & CStr(Ligne)) = CL.Offset(0, 1)
End If
Next
End Sub
Qu'en dis-tu ?
A+
LN