Merci bien éric.
je teste, mais j'ai l'impression qu'il y a un souci : "erreur de compilation, variable non définie". Je crois que c'est cette partie du code qui m'embête.
Sub statsMots(wdDoc As Object)
Dim wd, dict, k, result(), i As Long, tmp
Dim nb As Long, idx As Long
Set dict =...