Re
Une proposition non testée car pas d'exemple fourni:
Sub DoublonsNbOccurence()
Dim T(), i As Long, clé, d As Object, K As Variant
Set d = CreateObject("scripting.dictionary")
T = Range("Tb").ListObject.DataBodyRange
clé = "mo" & "ml" & "0xxx"
For i = LBound(T) To UBound(T)...