Set mondico = CreateObject("Scripting.Dictionary")
For Each c In .Range("C2:C" & nbligne + 1) 'choisir la cellule à partir de la quelle il faut compacter
mondico(c.Value) = mondico(c.Value) + 1
Next c
.[E1].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
.[F1].Resize(mondico.Count, 1) = Application.Transpose(mondico.items)