Explication VB

Bonjour,

Voilà, il n'y a pas si longtemps j'avais demandé, pour un cours, que l'un de vous me crée deux boutons excel en VB:

Je l'ai donc intégrer dans ma feuille excel mais mon prof voudrais quelques explications en français sur l'action de chaque ligne VB:
Voici le premier bouton qui sert à faire placer la somme d'une colonne dans une autre feuille excel mais une ligne l'une en dessous l'autre (je comprends quelques lignes mais y en a je ne sais pas à quoi elles servents:

Sub Bouton1_QuandClic()
'
Dim total, i As Integer
i = 1
total = 0
Worksheets("feuil1").Activate
Do While Range("A" & i).Value <> ""
If Range("B" & i).Value = "" Then Range("B" & i).Value = 0
If Range("C" & i).Value = "" Then Range("C" & i).Value = 0
total = total + (Range("B" & i) * Range("C" & i))
i = i + 1
Loop
i = 1
Do While Worksheets("feuil2").Range("A" & i).Value <> ""
i = i + 1
Loop
Worksheets("feuil2").Range("A" & i).Value = Format(i)
Worksheets("feuil2").Range("B" & i).Value = total
Worksheets("feuil2").Activate
End Sub

Et voici la seconde qui sert à remettre la colonne de la somme de la première feuille à zéro:

Sub raz()
Dim i As Integer
Worksheets("feuil1").Activate
i = 1
Do While Range("A" & i) <> ""
Range("C" & i).Value = 0
i = i + 1
Loop
End Sub

Je voudrais donc savoir ce que signifie ou à quoi sert chaque ligne

merci d'avance