.1.   Code du découpage lexical

Sub Découp_MotCmps()

 selection.Find.ClearFormatting
 selection.Find.Replacement.ClearFormatting
 i = Array("nous", "vous", "le", "la", "là", "leur", "je", "tu", "il", "elle", "ci", "même", "lui", "moi", "toi", "en", "y", "ils", "elles", "mêmes", "les", "leurs", "t", "ce", "on", "-")

For a = 0 To UBound(i)
 With ActiveDocument.Content
 .Find.Replacement.Font.color = wdColorLightOrange
 .Find.MatchWholeWord = True
 .Find.Execute findtext:=i(a), ReplaceWith:="", Replace:=wdReplaceAll
 End With
Next a

For a = 0 To UBound(i)
 With ActiveDocument.Content
 .Find.Font.color = wdColorLightOrange
 .Find.Execute findtext:="-" & i(a), ReplaceWith:=" - " & i(a), Replace:=wdReplaceAll
 End With
Next a

With ActiveDocument.Content
.Find.Font.color = wdColorLightOrange
.Find.Replacement.Font.color = wdColorAutomatic
.Find.Execute findtext:="", ReplaceWith:="", Replace:=wdReplaceAll
.Find.ClearFormatting
.Find.Replacement.ClearFormatting
End With

End Sub