Sub selectionCelluleParCouleur()
Dim couleur As Long
couleur = ActiveCell.Interior.Color
Dim plage As Range
Set plage = ActiveCell ' 1
For Each c In ActiveSheet.UsedRange ' 2
If c.Interior.Color = couleur Then ' 3
Set plage = Application.Union(plage, c) ' 4
End If
Next
plage.Copy
' Collage pour exemple
[I4].PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub