Nombre de plages cellules selon critère

Option Private Module
Option Explicit
Public Function nb_nc(plage As Range, Optional ByVal nbCel As Integer) As Variant
    
  'Traitement des erreurs
  nb_nc = CVErr(9)
  If plage Is Nothing Then Exit Function
  If plage.Rows.Count > 1 Then Exit Function
  If IsMissing(nbCel) Then nbCel = plage.Columns.Count
  If nbCel < 0 Then Exit Function
  If nbCel > plage.Columns.Count Then nbCel = plage.Columns.Count
  
Dim c As Long
Dim n As Long
  
  'Compter les NC
  nb_nc = 0
  n = 0
  For c = plage.Columns.Count To 1 Step -1
    If n = nbCel Then Exit For
    If plage.Cells(1, c).Formula <> "" Then
      n = n + 1
      If plage.Cells(1, c).Formula = "NC" Then
        nb_nc = nb_nc + 1
      End If
    End If
  Next c
  
End Function