Loop for j

bonjour,
j'essaye de faire une boucle assez simple.

il s'agit de faire la somme de la colonne c pour la plage de cellule en b non vide.

mais la commande : a = Range("c" & j) + a ne marche pas. le reste semble bon.

merci de votre aide
--------------------------------------------

Sub Macro1()

Dim i As Integer
Dim a As Integer

i = WorksheetFunction.CountA(Columns(2))
a = 0
For j = 1 To i

a = Range("c" & j) + a

Next j

MsgBox a
End Sub