Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
For Each c In Cells.SpecialCells(xlCellTypeFormulas, 2)
Set Z = [Couleurs].Find(c.Value, LookAt:=xlWhole, LookIn:=xlValues)
If Not Z Is Nothing Then
[B][COLOR=Red] c.Font.Color = Z.Font.Color
c.Interior.ColorIndex = Z.Interior.ColorIndex[/COLOR][/B]
End If
Next c
End Sub