Rows.Add (Word)

Renvoie un objet Row qui représente une ligne ajoutée à un tableau.

Add (BeforeRow)

BeforeRow: Objet Row qui représente la ligne située immédiatement sous la nouvelle ligne.

Sub AddARow() 
 If Selection.Information(wdWithInTable) = True Then 
 Selection.Rows.Add BeforeRow:=Selection.Rows(1) 
 End If 
End Sub