[SIZE=2] Application.FindFormat.Interior.ColorIndex = 6
Application.ReplaceFormat.Interior.ColorIndex = 3
Sheets("Feuil1").Cells.Replace What:="", Replacement:="", SearchFormat:=[COLOR=navy]True[/COLOR] , ReplaceFormat:=[COLOR=navy]True[/COLOR][/SIZE]