Sub essai()
Set mondico = CreateObject("Scripting.Dictionary")
a = Split([A1], " ")
For Each c In a: mondico(c) = mondico(c) + 1: Next
[c2].Resize(mondico.Count) = Application.Transpose(mondico.keys)
[d2].Resize(mondico.Count) = Application.Transpose(mondico.items)
End Sub