Private Sub Worksheet_Calculate()
For Each c In [C6:AG35]
On Error Resume Next
lig = Application.Match(c, [AI10:AI27], 0)
If lig = 0 Then
c.Interior.ColorIndex = xlNone
Else
c.Interior.Color = [AI10].Offset(lig - 1, 0).Interior.Color
End If
lig = 0
Next c
End Sub