Bonjour la communauté !

J'ai une macro VBA sous Excel qui est la suivante:
Code vba : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Sub ntw()
Dim j As Integer
Dim k As Integer
Dim ST(5) As Integer
Dim IDT(5) As Integer
Dim TAT(5) As Integer
Dim TWT(5) As Integer
Dim WT(5) As Integer
Dim AT(5) As Integer
Dim TIDT(5) As Integer
Dim L As Integer
n = 5
TWT(1) = 0
TIDT(1) = 0
IDT(1) = 0
WT(1) = 0
For k = 1 To 10
Randomize
AT(1) = Int((5 * Rnd) + 1)
For j = 2 To n
AT(j) = AT(j - 1) - WT(j)
Next
For j = 1 To n
Randomize
ST(j) = Int((1 * Rnd) + 2)
Next
For j = 1 To n
If ST(j) > AT(j) Then
IDT(j) = 0
WT(j) = ST(j) - AT(j)
TWT(j) = TWT(j - 1) + WT(j)
ElseIf ST(j) = AT(j) Then
WT(j) = 0
IDT(j) = 0
Else
WT(j) = 0
IDT(j) = AT(j) - ST(j)
TIDT(j) = TIDT(j - 1) + IDT(j)
End If
Next
[c2] = ST(1)
[c3] = ST(2)
[c4] = ST(3)
[c5] = ST(4)
[c6] = ST(5)
 
[b2] = AT(1)
[b3] = AT(2)
[b4] = AT(3)
[b5] = AT(4)
[b6] = AT(5)
[d2] = IDT(1)
[d3] = IDT(2)
[d4] = IDT(3)
[d5] = IDT(4)
[d6] = IDT(5)
[e2] = WT(1)
[e3] = WT(2)
[e4] = WT(3)
[e5] = WT(4)
[e6] = WT(5)
Next
End Sub

Je souhaite inserer la macro dans une page html.
j'aimerai savoir non seulement les etapes a suivre mais aussi les differentes applications a utiliser.

Quelqu'un pourrait m'aider ?

Merci d'avance