Appel d'une fonction au sein d'une autre

Option Explicit
'----
Function evaluer_critic(Lig) As String
Dim Col As Byte
Dim Total As Integer, Moyenne As Integer

For Col = 4 To 11
     Total = Total + evaluer_couleur(Range("Ans" & Col - 3), Cells(5, Col))
Next
Moyenne = CInt(Total / 8)
Select Case Moyenne
     Case Is <= 3
          evaluer_critic = "Criticité faible"
     Case Is <= 4
           evaluer_critic = "Criticité moyenne"
     Case Else
          evaluer_critic = "Criticité haute"
End Select
End Function
'-----
Function evaluer_couleur(Ans_x As Range, indic As Range) As Byte
Dim Nbre As Byte
Dim T_ans(), cptr As Byte

T_ans() = Application.Transpose(Ans_x)
If IsEmpty(indic) Then
     evaluer_couleur = 0
     Exit Function
End If
For cptr = 1 To UBound(T_ans)
     If indic = T_ans(cptr) Then
          evaluer_couleur = Choose(cptr, 5, 3, 1, 0, 0, 0)
          Exit For
     End If
Next
End Function

Option Explicit
'----
Function evaluer_critic(Lig) As String
Dim Col As Byte, Cas As Byte
Dim Total As Integer, Moyenne As Integer

'ligne vide
If Application.CountA(Range(Cells(Lig, 4), Cells(Lig, 11))) = 0 Then
     evaluer_critic = ""
     Exit Function
End If

For Col = 4 To 11
     Cas = Col - 3
     Total = Total + evaluer_couleur(Range("Ans" & Cas), Cas, Cells(5, Col))
Next

Moyenne = CInt(Total / 8)
Select Case Moyenne
     Case Is <= 3
          evaluer_critic = "Criticité faible"
     Case Is <= 4
           evaluer_critic = "Criticité moyenne"
     Case Else
          evaluer_critic = "Criticité haute"
End Select
End Function
'-----
Function evaluer_couleur(Ans_x As Range, cas_a As Byte, indic As Range) As Byte
Dim Nbre As Byte
Dim T_ans(), cptr As Byte
Dim Nom As String

T_ans() = Application.Transpose(Ans_x)


If IsEmpty(indic) Then
     evaluer_couleur = 0
     Exit Function
End If

For cptr = 1 To UBound(T_ans)
      
     If indic = T_ans(cptr) Then
          Select Case cas_a
               Case 1
                    '5=rouge, 3=orange, 1=vert, 0=rien ou NA
                    evaluer_couleur = Choose(cptr, 5, 1, 0, 0, 0, 0, 0, 0)
               Case 2
                    evaluer_couleur = Choose(cptr, 5, 0, 1, 0, 0, 0, 0, 0)
               Case 3
                    evaluer_couleur = Choose(cptr, 5, 1, 0, 0, 0, 0, 0, 0)
               Case 4
                    evaluer_couleur = Choose(cptr, 5, 3, 1, 0, 0, 0, 0, 0)
               Case 5
                    evaluer_couleur = Choose(cptr, 5, 3, 1, 0, 0, 0, 0, 0)
               Case 6
                    evaluer_couleur = Choose(cptr, 5, 3, 1, 0, 0, 0, 0, 0)
               Case 7
                    evaluer_couleur = Choose(cptr, 1, 3, 5, 5, 5, 5, 0, 0)
               Case 8
                    evaluer_couleur = Choose(cptr, 1, 3, 5, 0, 0, 0, 0, 0)
          End Select
          Exit For
     End If
Next
End Function