Problème de somme avec une macro sous EXCEL

Bonjour,

Je suis novice dans les macros avec EXCEL et je n'arrive pas à me dépatouiller d'une erreur dans le code suivant...
Le but de cette macro est à partir d'une plage de cellules selectionnées de la colonne C de faire la somme du contenu des cellules sur les mêmes lignes mais en colonne G puis d'afficher le résultat dans la cellule résultant de la fusion de la sélection. L'erreur serait à priori dans la formule de somme, p-ê une erreur de syntaxe...

Sub Macro8()
'
' Déverrouillage
Dim bibi As String
ActiveSheet.Unprotect ("bibi")
' Calcul de la somme
' j correspond au nombre de cellules sélectionnées
Dim j As Variant
j = Selection.Rows.Count

ActiveCell.FormulaR1C1 = "=SUM(RC[4]:R[j]C[4])"
' Fusion des cellules
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
' Reverrouillage de la feuille
ActiveSheet.Protect Password:="bibi", DrawingObjects:=True, Contents:=True, AllowFormattingCells:=True

End Sub

Merci d'avance à celui qui pourra me sauver !

babar