Somme de cellule apres condition IF

Bonjour,

A l’aide d’une condition je souhaite remonter une valeur qui se trouve dans la cellule juste à côté.

Mon problème est que ma condition me retourne 2 lignes ce qui est normal car je peux avoir 2 fois le même libellé de trouvé et par defaut il ne me fait pas la somme des 2 valeurs sur la gauche, il prend la valeur de la deuxième ligne.

Peut on faire une somme apres cette condition ?

Private Sub ReleveINFOS3()
Dim A As Integer, b As Integer, i As Integer, j As Integer, k As Integer, l As Integer, M As Integer, y As Integer, o As Integer, TCDCXgrpQL() As Variant, TCDCXgrpPLIS() As Variant
Dim z As Integer, NbLignes As Integer, p As Integer, iQL As Integer, FF As Boolean
Dim Machine(11) As Variant, SESSION(80, 70) As Variant, SESSparam(80, 70) As Variant, col As Integer, c As Integer, col2 As Integer
Dim Début As Integer, FIN As Integer, Nom As String, SecondQL As String, ListeQL(30) As String
Dim NbQL(50) As Integer, NouveauLOT As String, AncVAL As Double, Lig As Integer



col = 1
y = 1
For i = 5 To 20000

If Left(Cells(i, 1).Value, 1) = "N" Then

SESSION(col, 1) = Cells(i + 1, 1).Value 'N° de bloc
col = col + 1
col2 = col2 + 1

ElseIf Left(Cells(i, 4).Value, 32) = "TPD-_99 PIC TTF 14-COL 14" And (Cells(i, 3).Value) > 0 Then
SESSION(col2, 2) = Cells(i, 3).Value 'Nb de plis en TPD-

End If
Next


ActiveWorkbook.Close


c = 1
Lig = Sheets("SATURNE").Range("U1").Value
For c = 1 To col - 1
If Sheets("SATURNE").Cells(Lig, 1) = "" Then

Sheets("SATURNE").Cells(Lig, 1).Value = SESSION(c, 1) 'N° de bloc
Sheets("SATURNE").Cells(Lig, 2).Value = SESSION(c, 2) 'Nb de plis en TPD-



Pl = Pl + 1
Lig = Lig + 1
End If
Next

Si quelqu’un à une idée

Merci