Selection.SplitTable (Word)

Insère un paragraphe vide au-dessus de la première ligne de la sélection.

Si la sélection ne se trouve pas dans la première ligne du tableau, celui-ci est scindé en deux tableaux.

If Selection.Information(wdWithInTable) = True Then 
 Selection.SplitTable 
End If