Lister et compter les doublons d'une colonne

Bonjour, je suis de retour avec un problème maintes fois abordé et que je n'arrive pourtant pas à régler.

Dans le fichier joint, j'ai une colonne "POP" en B3 avec une liste variable en taille et nombre de "pop", j'ai besoin de 3 choses:

• compter le nombre total de "pop" différentes en C1
• Lister les différentes "pop" en D2, E2, F2, etc....
• compter le nombre de chaque "pop" au dessus de son nom que la macro aura placée donc en D1, E1, F1 etc...

J'ai trouvé grâce au forum comment faire pour les 2 premiers points (voir macro) mais je bute pour compter chaque "pop" .

J'ai essayé d'ajouter dans la macro un "NB.SI" avec formulalocal, mais j'arrive à rien de concluant...

Y a t il un moyen "simple" ?

merci pour votre aide

Bonjour

Essayes cette macro

Option Explicit

Sub Compte()
Dim Mondico As Object
Dim J As Long
Dim NbLg As Long

  NbLg = Range("B" & Rows.Count).End(xlUp).Row
  Set Mondico = CreateObject("Scripting.dictionary")
  For J = 4 To NbLg
    Mondico(Range("B" & J).Value) = Range("B" & J).Value
  Next J
  Range("C1") = Mondico.Count
  Range("D2").Resize(1, Mondico.Count) = Mondico.keys
  Range("D1").Resize(1, Mondico.Count).Formula = "=COUNTIF(R4C2:R" & NbLg & "C2,R[1]C)"
End Sub

ça marche formidablement et c'est tellement plus "propre" que ce que j'ai commencé à faire...