Range.PasteAppendTable (Word)

Fusionne des cellules collées dans un tableau existant en insérant les lignes collées entre les lignes sélectionnées.

Sub PasteAppend 
 Selection.PasteAppendTable 
End Sub