bonsoir,
avec une fonction personnalisée, mais avec 5.000 lignes, peut-être cela devra être remplacé par une macro qui colle les valeurs.
Function Compte1(Plage)
Dim aOut(3), aA
s = Replace("FREQUENCY(IF(#=1,COLUMN(#)),IF(#<>1,COLUMN(#)))", "#", Plage.Address)
aA = Application.Transpose(Evaluate(s))
aOut(0) = aA(1)
aOut(1) = Application.Max(aA)
s = Replace(" " & Join(aA) & " ", " " & aOut(1) & " ", "x")
aOut(2) = Len(s) - Len(Replace(s, "x", ""))
s = Replace(" " & Join(aA) & " ", " 3 ", "x")
aOut(3) = Len(s) - Len(Replace(s, "x", ""))
Compte1 = aOut
End Function