Paragraphs.DecreaseSpacing (Word)

Diminue l'espacement avant et après les paragraphes par incréments de 6 points.

Sub DecreaseParaSpacing() 
 Selection.Paragraphs.DecreaseSpacing 
End Sub