Sub Analyser4()
Application.ScreenUpdating = False
Range("A2:C18").Interior.Color = RGB(255, 255, 255)
For Each Cell In Range("C2:C18")
If IsEmpty(Cell.Value) = True Then
Cell.Offset(0, 0).Interior.Color = RGB(255, 0, 0)
Else
LesClass = Split(Cell.Value, ",")
For i = 0 To UBound(LesClass)
Equiv = Application.Match(Trim(LesClass(i)), Sheets("Feuil2").Range("A2:A22"), 0)
If IsError(Equiv) = True Then
NonTrouve = True
Else
NonTrouve = False
End If
Next i
If NonTrouve = True Then
Cell.Offset(0, 0).Interior.Color = RGB(255, 128, 128)
End If
End If
Next Cell
Application.ScreenUpdating = True
End Sub