Ressortir les doublons dans une plage et compter leur fréquence

Bonjour à tous,

une plage de données etalée sur plusieurs lignes et plusieurs colonnes.

je cherches à ressotir avec un code Vba les chiffres qui apparaissent en doublon dans la plage et leurs fréquences d'apparition.

Ci-joint le fichier exemple.

Merci d'avance.

bonjour,

une proposition à adapter

Sub aargh()
    Dim a(100)
    Set pl = Range("A2:F5")
    For Each c In pl
        If c <> "" Then a(c) = a(c) + 1
    Next
    k = 1
    For i = 1 To 100
        If a(i) > 1 Then
            k = k + 1
            Cells(k, 8) = i
            Cells(k, 9) = a(i)
        End If
    Next i
End Sub

Merci h2so4.

j'ai adapté ton code, ca marche super bien.

merci au forum.