Formule min,max,moyen d'une série (colonne)

Function MATSERIE(plage As Variant, x As Variant)
Dim ub&, i&, j&, tablo&(), n&
plage = Application.Transpose(plage) 'matrice, plus rapide
ub = UBound(plage)
For i = 1 To ub
  If plage(i) = x Then
    For j = i To ub
      If plage(j) <> x Then Exit For
    Next
    ReDim Preserve tablo(n)
    tablo(n) = j - i
    n = n + 1
    i = j
  End If
Next
MATSERIE = tablo
End Function

Function MATSERIE(plage As Variant, x As Variant)
Dim ub&, i&, j&, tablo&(), n&
plage = plage 'matrice, plus rapide
ub = UBound(plage)
For i = 1 To ub
  If plage(i, 1) = x Then
    For j = i To ub
      If plage(j, 1) <> x Then Exit For
    Next
    ReDim Preserve tablo(n)
    tablo(n) = j - i
    n = n + 1
    i = j
  End If
Next
MATSERIE = tablo
End Function