Cell.Next (Word)

Renvoie un objet Cell qui représente la cellule suivante du tableau dans la collection Cells.

If Selection.Information(wdWithInTable) = True Then 
 Selection.Cells(1).Next.Select 
End If