Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
For Each c In [zoneMFC]
c.Interior.ColorIndex = xlNone
If c.Value <> "" Then
On Error Resume Next
c.Interior.ColorIndex = [Couleurs].Find(c.Value, LookAt:=xlWhole).Interior.ColorIndex
c.Font.ColorIndex = [Couleurs].Find(c.Value, LookAt:=xlWhole).Font.ColorIndex
End If
Next c
End Sub