[anacoluthe] Concerne erreur de la macro NettoyerStyle

Bonjour Anacoluthe,

J'ai glané sur le site de: http://faqword.free.fr/
l'une de tes contribution qui devrait m'être fort utile :-)
toutefois en voulant l'essayer, celle-ci plantouille à la ligne "Next"
(toute la ligne s'écrit en rouge).
Et, heu.. J' vois pas bien pourquoi....
Si tu pouvais m'apporter ton éclairage, je t'en remercie d'avance.
très cordialement.
Emile
-----

Public Sub NettoyerStyles()
'Macro écrite par anacoluthe
For Each oStyle In ActiveDocument.Styles
If Not oStyle.BuiltIn Then
With ActiveDocument.Content
.Find.ClearFormatting
.Find.Style = ActiveDocument.Styles(oStyle)
If Not .Find.Execute() Then
oStyle.Delete: n = n + 1
End If
End With
End If
Next oStyle MsgBox Str(n) & " styles inutilisés supprimés !" ' <---
Cette ligne!
End Sub
--
Emile