les 3 noms les plus répétés

=SI(NB.SI(A$1:A1;A2)=0;NB.SI(A$2:A$21;A2)-LIGNE()/10000000000)

=INDEX(A$2:A$21;EQUIV(GRANDE.VALEUR(B$2:B$21;LIGNES(E$2:E2));B$2:B$21;0))

Sub ScriptingCompteItems()
'JB [url=http://boisgontierjacques.free.fr/]Formation Excel VBA JB[/url]
'prendre l'objet Scripting Dictionary
  Set Mondico = CreateObject("Scripting.Dictionary")
  For Each c In Range("a1", [a65000].End(xlUp))
    Mondico(c.Value) = Mondico(c.Value) + 1
  Next c
  [C2].Resize(Mondico.Count, 1) = Application.Transpose(Mondico.keys)
  [D2].Resize(Mondico.Count, 1) = Application.Transpose(Mondico.items)
  [C2].Sort Key1:=[D2], Order1:=xlDescending, Header:=xlNo
  Set Mondico = Nothing
End Sub

=SI(F4=F3;INDEX(D$3:D3;EQUIV(F4;F$3:F3;0))&" ex aequo";LIGNES(D$3:D4)&"ème")

=INDEX(A:A;Div*MOD(GRANDE.VALEUR(SI(FREQUENCE(EQUIV(Pnom;Pnom;0);EQUIV(Pnom;Pnom;0))=0;"";FREQUENCE(EQUIV(Pnom;Pnom;0);EQUIV(Pnom;Pnom;0))+LIGNE(Pnom0)/Div);C3);1))

=ARRONDI(GRANDE.VALEUR(SI(FREQUENCE(EQUIV(Pnom;Pnom;0);EQUIV(Pnom;Pnom;0))=0;"";FREQUENCE(EQUIV(Pnom;Pnom;0);EQUIV(Pnom;Pnom;0))+LIGNE(Pnom0)/Div);C3);0)