Cell.Delete (Word)

Supprime une ou plusieurs cellules d’un tableau et contrôle éventuellement le décalage des cellules restantes.

Delete (ShiftCells)

ShiftCells: Sens dans lequel les cellules restantes doivent être décalées.

Sub DeleteCells() 
 Dim intResponse As Integer 
 
 intResponse = MsgBox("Are you sure you want " & _ 
 "to delete the cells?", vbYesNo) 
 
 If intResponse = vbYes Then 
 ActiveDocument.Tables(1).Cell(1, 1).Delete 
 End If 
End Sub