Private Sub Worksheet_Calculate()
Me.Protect "riri", userinterfaceonly:=True
For Each c In [ZoneCalcul]
p = Application.Match(c.Value, Sheets("couleurs").Range("couleursNB"), 1)
If Not IsError(p) Then
c.Resize(, 3).Interior.ColorIndex = Sheets("couleurs").Range("couleursNB")(p).Interior.ColorIndex
End If
Next
End Sub