[VBA Macro RR] pour voir/surligner les espaces fines insécables ou autre caractère

Dans Word on visualise les caractères invisibles grâce au pied de mouche.
L'espace insécable est visualisée-matérialisée par un sigle degré :  °
M$oft n'ayant pas fini le boulot, il n'a rien prévu pour tracer l'espace insécable courte, qui reste invisible.
------
ChrW() est une fonction vba et à ce titre elle échappe a la syntaxe générale des critères de champ recherche. Normalement on met :
.Text = " séquence recherchée "
cad. que le critère de recherche est normalement entouré de guillemets.
ChrW() est une fonction vba. Elle ne doit pas être entourée de guillemets.
.Text = ChrW(n)
------
Voici la macro qui surligne :
------
Sub Pour_Visualiser_Les_Espaces_Espaces_Fines_Insécables()
' le caractère invisible "espace fine insécable"
' U+202F NNBSP = NARROW NO-BREAK SPACE HTML &#8239 ChrW(8239)
' on surligne en rose
'
      Options.DefaultHighlightColorIndex = wdPink
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   Selection.Find.Replacement.Highlight = True
   With Selection.Find
       .Text = ChrW(8239)
       .Replacement.Text = ChrW(8239) 'ou .Text = " ^& "
       .Forward = True
       .Wrap = wdFindContinue
       .Format = True
       .MatchCase = False
       .MatchWholeWord = False
       .MatchAllWordForms = False
       .MatchSoundsLike = False
       .MatchWildcards = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll  
End Sub
------