Sub Copie_couleur()
Dim r As Range, dfi As Object
Set r = Feuil1.[A1:C10] 'plage avec MFC, à adapter
With Feuil2
r.Copy .Range(r.Address) 'copier-coller
.Range(r.Address).FormatConditions.Delete 'RAZ
.Range(r.Address).Interior.ColorIndex = xlNone 'RAZ
For Each r In r
Set dfi = r.DisplayFormat.Interior
If dfi.ColorIndex <> xlNone Then .Range(r.Address).Interior.Color = dfi.Color
Next
End With
End Sub