Private Sub recherche_car_car()
Dim tag As style
For Each tag In ActiveDocument.Styles
If tag = " Car Car11" Then
Selection.HomeKey unit:=wdStory
Application.ScreenUpdating = True
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.style = ActiveDocument.Styles(" Car Car11")
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
'.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute
End With
End If
Next
End Sub