Sub CompteItems()
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range("V3", [V206000].End(xlUp))
mondico(c.Value) = mondico(c.Value) + 1
Next c
[X2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
[Y2].Resize(mondico.Count, 1) = Application.Transpose(mondico.items)
End Sub