Bonjour,

J'essaye d'écrire une macro sur Word pour supprimer tous les doubles sauts de ligne après les "Titre 2" seulement.

J'ai cette Macro mais elle ne supprime que les doubles paragraphes vides qui ont le style "Titre 2" alors qu'ils sont en normal. Et si je mets "Normal" dans la macro ça me supprime d'autres doubles sauts de ligne dans le document qui ne se trouvent pas après Titre 2.

Voici la macro qui ne supprime que les doubles sauts de ligne qui ont le style "Titre 2"

Sub Supprespace()
'
' Supprespace Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("Titre 2")
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p^p"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    
   Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Et je vous mets une capture d'écran des paragraphes vides en Normal.

Ceux qui sont en noir sont des sauts de ligne en "Normal" et en rouge ce sont des sauts en "Titre 2"