Suppression interlignes

Pour moi, les espaces sautent bien quand on fait un copier/coller, en utilisant le modèle de document. (testé avec un document Word et un texte provenant d'un pdf)

Si dans le texte, il y a eu des lignes vides insérées pour séparer les paragraphes, elles sont naturellement conservées.

Bonjour
Les interlignes supérieur à 1 ou des espaces avant/après non à zéro, c'est systématique si on fait un copié/collé d'une source en page internet (html ou php).
Un Ctrl+A (tout sélectionner) et un réglage du format paragraphe.
On peut faire en petite macro et un bouton dans la barre de commande.

Sub Interligne_Simple()
'
' Interligne_Simple Macro
' Mise à 1 de l'interligne et à 0 des espaces avant/après.
'
    Selection.WholeStory
    With Selection.ParagraphFormat
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceSingle
    End With
End Sub

A+