Sub fonctionne mais pas Function

Function CoulMFC1(ByVal Cible As Range) As Long
Dim ObjFC As Object, FC As FormatCondition
For Each ObjFC In Cible.FormatConditions
   Select Case ObjFC.Type
      Case xlCellValue: Set FC = ObjFC
         Select Case FC.Operator
            Case xlLess: If Cible.Value < FC.Formula1 Then CoulMFC1 = FC.Interior.Color: Exit Function
            Case xlLessEqual: If Cible.Value <= FC.Formula1 Then CoulMFC1 = FC.Interior.Color: Exit Function
            End Select
      End Select
   Next ObjFC
End Function