Compter les occurrences dans VBA-Word

Bonjour à tous je suis un débutant en VBa pour Word et j'ai déjà un petuet problème.
En fait je viens de lire l'article sur l'Utilisation détaillée de la fonction Rechercher/Remplacer de Word et j'aimerai savoir s'il existe une fonction qui pourrait compter les occurrences d'un mot trouvé et l'afficher. Si c'est possible, faites le moi savoir s'il vous plait.
Bien des choses à vous et longue vie au forum des developpeurs

Salut,

Je vais reprendre le code que je viens de donner pour un autre post.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub rechercheU() Dim intI as Integer intI = 0 Selection.HomeKey unit:=wdStory   Do Selection.Find.ClearFormatting With Selection.Find .Text = "Mon Mot" .Execute End With   intI = intI + 1 Loop Until Selection.Find.Execute = False   MsgBox "Il y a " & intI & " occurrence du mot" End Sub

---