Sub Essai()
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range("e9", [e65000].End(xlUp))
a = Split(c.Value, " ")
For k = LBound(a) To UBound(a)
If a(k) <> "" Then mondico.Item(a(k)) = mondico.Item(a(k)) + 1
Next k
Next c
[h2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
[i2].Resize(mondico.Count, 1) = Application.Transpose(mondico.items)
Range("H2:I200").Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess
End Sub