Range.SetListLevel (Word)

Définit le niveau de liste pour un ou plusieurs éléments d'une liste numérotée.

SetListLevel (Level)

Level: Numéro qui indique le niveau de la nouvelle liste.

Dim iLevel As Integer: iLevel =  
ActiveDocument.Range.SetListLevel Level:=iLevel