Résultat macro si changement dans une cellule ne marche pas

'code simplifie
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("K:K")) Then
        Call evl_crt(Target.Row)
    End If
End Sub

'----
Function evl_crt(lig) As String
Dim Col As Byte, Cas As Byte
Dim Total As Integer
Dim Moyenne As Double

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

For Col = 4 To 11
     Cas = Col - 3
     Total = Total + evl_coul(Range("_Ans" & Cas), Cas, Cells(lig, Col))
Next

Moyenne = Total / 8
Select Case Moyenne
     Case Is < 3
          evl_crt = "risk faible" ' +couleur verte: MFC
     Case Is <= 4
           evl_crt = "risk moyen" '+couleur orange: MFC
     Case Else
          evl_crt = "risk haut" '+couleur rouge: MFC
End Select
End Function
'-----
Function evl_coul(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
                    evl_coul = Choose(cptr, 5, 1, 0, 0, 0, 0, 0, 0)
               Case 2
                    evl_coul = Choose(cptr, 5, 3, 1, 0, 0, 0, 0, 0)
               Case 3
                    evl_coul = Choose(cptr, 5, 1, 0, 0, 0, 0, 0, 0)
               Case 4
                    evl_coul = Choose(cptr, 5, 3, 1, 0, 0, 0, 0, 0)
               Case 5
                    evl_coul = Choose(cptr, 5, 3, 1, 0, 0, 0, 0, 0)
               Case 6
                    evl_coul = Choose(cptr, 5, 3, 1, 0, 0, 0, 0, 0)
               Case 7
                    evl_coul = Choose(cptr, 5, 5, 5, 5, 3, 1, 0, 0)
               Case 8
                    evl_coul = Choose(cptr, 5, 5, 3, 1, 0, 0, 0, 0)
          End Select
          Exit For
     End If
Next
End Function

Sub CommandButton1_Click()

    Call evl_crt (ligne)

End Sub

Private Sub CommandButton1_Click()
    'test plage
    If ActiveCell.Column >= 4 And ActiveCell.Column <= 8 Then
        Range("L" & ActiveCell.Row) = evl_crt(ActiveCell.Row)
    End If
End Sub

Private Sub CommandButton1_Click()
    'test plage
    If ActiveCell.Column >= 4 And ActiveCell.Column <= 8 And ActiveCell.Row >= 4 Then
        Range("L" & ActiveCell.Row) = evl_crt(ActiveCell.Row)
    End If
End Sub