VBscript: caser les valeurs saisie dans les colonnes Excel

Bonjour,

Je suis nouvelle sur VBscript.
Je cherche à développer un programme qui permet de caser les vlan_ID(saisie par un utilisateur) dans la cellule(6,j) et cela par ordre de saisie.

Le problème de mon code c'est qu'il affiche sur Excel que la dernière valeur saise dans la cellule(6,2)!

Veuillez m'aider svp; voici mon code:

Dim i

Dim vlannb
Vlannb = 0
vlannb = CInt(vlannb) ' is now an integer

Dim vlanid
Vlanid = 0
vlanid = CInt(vlanid) ' is now an integer


vlan = MsgBox("Voulez-vous configurer des vlans?" ,vbQuestion + vbYesNo ,"Vlan Configuration")

If vlan = vbYes Then

vlannb = InputBox("Entrez le nombre de vlan à configurer", "Vlan Number","")


if vlannb >= 1 then

For i=1 to vlannb

vlanid = InputBox("Entrez les ID des vlans :", "Vlan ID","")

Next

For j=2 to vlannb

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)



objWorksheet.Cells(6,1) = "vlan ID"
objExcel.Cells(6, j).Value = vlanid

objExcel.Cells.EntireColumn.AutoFit


Next

end if

else

port = InputBox("Voulez-vous configurer des ports?",vbQuestion + vbYesNo ,"Port Configuration")


end if