title: Add result in new column depending on old one
body: <p><a href="https://i.stack.imgur.com/rKeKQ.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/rKeKQ.png" alt="enter image description here"></a></p>
  
  <p>I am comparing the tow release and sort the results as in the picture. The new functionalities in the release 2 with communities that uses these functionalities and the percentage of their PNR. I need to add in the column P the sum of the percentage like for the functionality plus percentage of their PNRS. Then we will have : "total percentage:37.97 % "</p>
  
  <p>This is the code i am using if someone can help me :</p>
  
  <pre><code>Sub essai()
      Dim verif As Range, m As Range, dico As New Dictionary
      x = Sheets(1).Range("C4:C" &amp; Sheets(1).Range("C:C").End(xlDown).Row).Count
      y = Sheets(1).Range("I4:I" &amp; Sheets(1).Range("I:I").End(xlDown).Row).Count
  
      For j = 3 To y + 3
      If Not dico.Exists(Sheets(1).Cells(j, 10).Value) Then
          dico.Add Sheets(1).Cells(j, 10).Value, Sheets(1).Cells(j, 10).Value
          PNRt = PNRt + Sheets(1).Cells(j, 10).Value
      End If
      Next j
  
      For j = 3 To y + 3
  
      a = Sheets(1).Range("O1:O" &amp; Sheets(1).Range("O:O").End(xlDown).Row).Count + 1
  
      Set m = Sheets(1).Range(Sheets(1).Cells(3, 3), Sheets(1).Cells(x + 3, 3)).Find(Sheets(1).Cells(j, 9).Value)
  
      If m Is Nothing Then
      PNR = 1 - (PNRt - Sheets(1).Cells(j, 10).Value) / PNRt
  
      PNR = Format(PNR, "0.00%")
      Set verif = Sheets(1).Range("N:N").Find(Sheets(1).Cells(j, 9).Value)
  
     If verif Is Nothing Then
          Sheets(1).Cells(a, 14).Value = Sheets(1).Cells(j, 9).Value
          texte = Sheets(1).Cells(j, 7).Value &amp; Sheets(1).Cells(j, 8).Value &amp; ", pourcentage PNR : " &amp; PNR
          Sheets(1).Cells(a, 15).Value = texte
  
      Else
          texte = Sheets(1).Cells(verif.Row, 15).Value
          texte = texte &amp; "; " &amp; Sheets(1).Cells(j, 7).Value &amp; Sheets(1).Cells(j, 8).Value &amp; ", pourcentage PNR : " &amp; PNR
          Sheets(1).Cells(verif.Row, 15).Value = texte
  
      End If
  
      End If
      Next j
      Exit Sub
  
  
  End Sub
  </code></pre>