Selection.InsertCells (Word)

Ajoute des cellules à un tableau existant.

Le nombre de cellules insérées est égal au nombre de cellules dans la sélection.

InsertCells (ShiftCells)

ShiftCells: Indique comment insérer les cellules dans les colonnes et lignes existantes du tableau.

If Selection.Cells.Count >= 1 Then 
 Selection.InsertCells ShiftCells:=wdInsertCellsShiftRight 
 For Each aBorder In Selection.Borders 
 aBorder.LineStyle = wdLineStyleSingle 
 aBorder.ColorIndex = wdRed 
 Next aBorder 
End If