Problème macro

J'aimerai utiliser les macro pour me simplifier la vie sous excel mais j'ai beaucoup de mal.

Ma première étape est de créer une nouvelle feuille. Ca c'est bon j'ai reussi

Sub InsereFeuille()
Dim shtest As Worksheet
Set shtest = Sheets.Add (After : sheets.count)
shtest.Name = "test"
End sub

Deuxièmement, j'ai un tableau avec des niveaux comme celui ci

http://www.heberger-image.fr/data/images/41823_excel_1.jpg

J'aimerai creer ce style de tableau automatiquement

http://www.heberger-image.fr/images/34203_excel_2.jpg.html

Je m'explique, j'aimerai que si j'ai par exemple 4 objets, ça me creer un tableau allant d'objet 1 à 4.

Voila je ne sais pas si c'est clair merci pour votre aide