Somme avec variables

Bonjour,

je travaille sur les charges sociales, et je comprends pas pourquoi ma macro bug avec le code pour l'URSSAF

alors qu'elle fonctionne pour la GENERALI.

pour la fonction SUM

'*****************************

'AG2R Prevoy en Ligne7

'*****************************

 For i = 3 To 100
    If Cells(i, 2) = "Prévoyance cadre TrA" Then
'marquer AG2R Prevoy en 3éme ligne
    Range("N" & i + 2) = "AG2R Prevoy"
'marquer montant total en 2éme ligne
    Range("N" & i + 1) = "=SUM(R" & i & "C4:R" & i + 2 & "C4)"    'en fixe avec $
'report en écriture colonne X, ligne 7
     Range("X7") = Range("N" & i + 1)
 '   ActiveSheet.Paste
'cpte comptable
    Range("R7") = "437500"
'analyt
    Range("Y7") = "G"
'libelle comptable
    Range("T7") = "ch sal AG2R Prev"
    End If
    Next i

'*****************************

'URSSAF

'*****************************

    Dim nbre1 As Integer, nbre2 As Integer
'delimit lignes concernées
    For i = 3 To 100
    If Cells(i, 2) = "Maladie - maternité - invalidité - décès" Then
    nbre1 = i
    ElseIf Cells(i, 2) = "Contribution de base pénibilité" Then
    nbre2 = i
    End If
    Next i

MsgBox nbre1 & " " & nbre2 ' me donne bien les valeurs

'écrire libellé et total en col N/14
    'libelle en derniere ligne
    Cells(nbre2, 14) = "URSSAF"
    'total au dessus
    Cells(nbre2 - 1, 14).Select
 ActiveCell.FormulaR1C1 = "=SUM(R" & nbre1 & "L12:R" & nbre2 & "L12)"    'en fixe avec $

    Dim maPlage As Range
Set maPlage = Range(Cells(nbre1, 12), Cells(nbre2, 12))
Set maPlage = Range("L" & nbre1 & ":L" & nbre2)

   ' ActiveCell.FormulaR1C1 = "=SUM(Tuyaux!R[" & i & "]C[1]:R[" & j & "]C[1])"  'en relatif sans $
    'Range("N" & i + 1) = "=SUM(R" & i & "C4:R" & i + 2 & "C4)"    'en fixe avec $
'report en écriture colonne X, ligne 8
    Cells(nbre2 - 1, 14) = Range("X8")
'cpte comptable
    Range("R8") = "437600"
'analyt
    Range("Y8") = "G"
'libelle comptable
    Range("T8") = "ch sal URSSAF"

je séche mais il doit y avoir plus expert que moi

Bonjour,

Formule en style L1C1 => propriété FormulaR1C1 de l'objet Range...

NB- Ton code serait plus efficace si les expressions étaient qualifiées (les expressions destinées à renvoyer un objet Range ne réfèrent explicitement à aucune feuille...)

salut Maréchal

en fait j'ai résolu mon probléme en enchainant l'écriture dés la variable sélectionnée.

avant j'écrivais autre chose entre, et je perdais la valeur de ma sélection.