Sub Remplacer_selon_fond()
Dim comme As Range, T
T = Timer
Application.ScreenUpdating = False
For Each comme In Sheets("feuil2").Range("listeCouleurs")
Application.ReplaceFormat.Clear
Application.FindFormat.Clear
With Application.FindFormat.Interior
.Pattern = comme.Interior.Pattern
.PatternColorIndex = comme.Interior.PatternColorIndex
.Color = comme.Interior.Color
.TintAndShade = comme.Interior.TintAndShade
.PatternTintAndShade = comme.Interior.PatternTintAndShade
End With
Sheets("feuil1").Range("b17:x1035").Cells.Replace What:="", _
Replacement:=comme.Value, LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
ReplaceFormat:=False
Next comme
Application.ScreenUpdating = True
MsgBox (Timer - T)
End Sub