Pour le fun : Nb de lignes

=-SOMME(-(NB.SI(DECALER(A1:J1;LIGNE(1:1000000););">3")=10))

=-SOMME(-(NB.SI(DECALER(INDEX(Zone;1;1);LIGNE(Zone)-LIGNE(INDEX(Zone;1;1));;1;10);">3")=10))

=NB(1/(NB.SI(DECALER(Zone;LIGNE(INDIRECT("1:"&LIGNES(Zone)));;1);">3")=10))

=NB(1/(SOUS.TOTAL(5;DECALER(Zone;LIGNE(INDIRECT("1:"&LIGNES(Zone)));;1))>3))

=NB(1/(NB.SI(DECALER(Zone;LIGNE(INDIRECT("1:"&LIGNES(Zone)))-1;;1);">3")=10))

=NB(1/(SOUS.TOTAL(5;DECALER(Zone;LIGNE(INDIRECT("1:"&LIGNES(Zone)))-1;;1))>3))

Option Explicit

Function MinSup_N(xZone As Range, SupA As Long)

' on traite le tableau par paquet de ParPaquetDe nombre de lignes
' pour éviter des PB de mémoire saturée
Const ParPaquetDe = 20000
Dim derlig As Long, tablo As Variant, i As Long, k As Long
Dim prem As Long, der As Long, aux As Long, largeur As Long

' (avec le range xZone en paramètre)
With xZone
' nombre de colonnes de xzone : nombre de lignes de xZone
largeur = .Columns.Count: derlig = .Rows.Count
' on traite le tableau par paquet de ParPaquetDe lignes
' pour éviter des PB de mémoire saturée
prem = 1
der = prem + ParPaquetDe
' si la dernière ligne à traiter est supérieure à
' la dernière ligne des données (derlig), alors la dernière
' ligne à traiter = derlig
If der > derlig Then der = derlig

Do
  ' transfert des lignes de données dans le table tablo
  tablo = .Offset(prem - 1).Resize(der - prem + 1).Value
  For i = LBound(tablo) To UBound(tablo)
  ' boucle sur chaque ligne du tablo
    For k = 1 To largeur
      ' dès qu'un élément dela ligne est inf ou égal à 3
      ' on quitte la boucle
      If tablo(i, k) <= SupA Then Exit For
    Next k
    ' si l'indice k est égal à 11, alors on a parcouru toute la boucle
    ' sans trouver de valeur <= à SupA: Le min est donc > à SupA
    ' on incrémente le compteur
    If k = largeur + 1 Then MinSup_N = MinSup_N + 1
  Next i
  ' préparation de la boucle suivante
  prem = der + 1: der = prem + ParPaquetDe
  If der > derlig Then der = derlig
  ' si la première ligne suivante à traiter est sup. à derlig
  ' alors on sort de la boucle Do...Loop
Loop Until prem > derlig
End With
End Function

Function Compte&(Zone As Range, Seuil#)
Dim n&, c&, Ligne As Range, Cellule As Range
    c = Zone.Columns.Count
    For Each Ligne In Zone.Rows
        For Each Cellule In Ligne.Columns
            If Cellule.Value <= Seuil Then Exit For
            n = n + 1
        Next Cellule
        If n = c Then Compte = Compte + 1
        n = 0
    Next Ligne
End Function

=Compte(Zone;3)

Function cpte(zone, seuil)
Dim tablo
Dim n As Long
Dim m As Long
Dim c As Long
Dim p As Long
tablo = zone
For n = LBound(tablo, 1) To UBound(tablo, 1)
  For m = LBound(tablo, 2) To UBound(tablo, 2)
    If tablo(n, m) <= seuil Then Exit For
    p = p + 1
  Next
  If p = UBound(tablo, 2) Then c = c + 1
  p = 0
Next
cpte = c
End Function