Additionner les différentes valeurs d'une variable

Bonjour à tous,

Je cherche à additionner les différentes valeurs que peut prendre une même variable.
Par exemple si dans les cellules A1 A2 et A3 on a respectivement les valeurs "A" "B" et "C" auxquelles correspondent en B1 B2 B3 les valeurs numériques "1" "2" et "3".

Sub Test()
Dim x As Integer

x = 1
Do While Cells(x, 2) <> ""
If (Cells(x, 1)) = "A" Then
var1 = Cells(x, 2).Value
End If
x = x + 1
Loop
Cells(1, 4) = var1
End Sub

Le problème dans cet exemple est que "A" est trouvée 2 fois et que la variable var1 ne considérera que la dernière valeur qui lui correspond.
Je voudrais que la cellule D1 affiche la somme des var1 (donc 1+3=4 dans cet exemple) et non uniquement la dernière valeur (3).

Quelqu'un peut-il m'aider?

Merci d'avance.