Somme d'une plage de données

Bonjour à tous,

Je souhaiterais faire la somme en dessous de la dernière ligne de la colonne C du tableau ci-joint uniquement quand la colonne A est égal à 2.

Mais je n'arrive pas à formaliser cela en VBA.

Sub Test()

Dim MaPlage As Range, cel As Range
Dim DernLigne As Long

DernLigne = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
DernLign = Range("B" & Rows.Count).End(xlUp).Row

        Set MaPlage = Sheets(1).Range("C7" & PremLigne & ":C" & DernLigne + 1)
        For Each cel In MaPlage 'pour toutes les cellules de la plage
            If cel.Offset(, -2) = "2" Then
            Sheets(1).Range("C7" & PremLigne & ":C" & DernLigne + 2) = "=SUM(R[-60]C:R[-1]C"
            End If
        Next

End Sub

Pour information, le nombre de ligne du tableau sera amené à varier.

Merci pour votre aide.

Bonne journée

Bonjour,

Teste comme ceci

Sub Test()

Dim MaPlage As Range, cel As Range
Dim DernLigne As Long
Dim total As Double
DernLigne = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
total = 0
    Set MaPlage = Sheets(1).Range("C7:C" & DernLigne)
      For Each cel In MaPlage 'pour toutes les cellules de la plage
        If cel.Offset(, -2) = "2" Then
          total = total + cel
        End If
      Next
    Cells(DernLigne + 1, 2) = "Total"
    Cells(DernLigne + 1, 3) = total
End Sub

Bonjour,

Merci pour ton retour.

En appliquant ton code, il me mets 0 en total.

Il n'y a pas une fonction sum à mettre quelque part ?

Merci pour ton aide.

Re,

Désolé mais chez moi il me donne -79966

Re, autant pour moi, il me donne ZERO aussi,

mais c'est le résultat,

Si tu prends tous les chiffres de la colonne C sans les1 de la colonne A, cela donne bien ZERO

Re,

Autant pour moi ça fonctionne. (on va mettre ça sur le compte de la fin de semaine)

Merci beaucoup.

Bonne journée