voila un code qui fonctionne
en espérant que ce soit compatible avec le vb
Sub test()
Dim myarray(10, 3)
myarray(1, 1) = "produit1"
myarray(2, 1) = "produit2"
myarray(3, 1) = "produit3"
myarray(4, 1) = "produit4"
myarray(5, 1) = "produit5"
myarray(6, 1) = "produit6"
myarray(7, 1) = "produit7"
myarray(8, 1) = "produit8"
myarray(9, 1) = "produit9"
myarray(10, 1) = "produit10"
myarray(1, 2) = "10"
myarray(2, 2) = "20"
myarray(3, 2) = "30"
myarray(4, 2) = "40"
myarray(5, 2) = "50"
myarray(6, 2) = "60"
myarray(7, 2) = "70"
myarray(8, 2) = "80"
myarray(9, 2) = "90"
myarray(10, 2) = "100"
tva = 0.2
i = 1
While i <= 10
myarray(i, 3) = InputBox("combien voulez vous de " & myarray(i, 1) & "?" )
i = i + 1
Wend
i = 1
totht = 0
While i <= 10
mt = myarray(i, 2) * myarray(i, 3)
totht = totht + mt
i = i + 1
Wend
tot = (1 + tva) * totht
MsgBox ("cela fera " & tot & " euros!" )
End Sub