Additionner 2 Cellules

Bonjour a tous ,

J'utilise ce code (gentiment fourni sur ce forum et qui fonctionne a merveille..) pour Concatener 2 cellules (Colonne I) si la valeur en A est en double et ensuite suppression de la dernière ligne "en double".. Ca fonctionne parfait

L'idée maintenant serait de pouvoir au même titre (Si Valeur en Colonne en A est double , alors on additionne les valeurs des colonnes J..

En esperant avoir été clair.

Merci de votre aide

derligne = Range("A" & Rows.Count).End(xlUp).Row
i = 2
Do

Valeur = Range("A" & i).Value
Compteur = 0
Chaine = Range("A" & i).Offset(0, 8)
For Each Cel In Range("A2:A" & derligne)
If UCase(Cel) = UCase(Valeur) Then Compteur = Compteur + 1
If Compteur > 1 Then
Chaine = Chaine & "_" & UCase(Cel.Offset(0, 8))
toto = Cel.Address
Cel.EntireRow.Delete
derligne = derligne - 1
Range("A" & i).Offset(0, 8).Value = Chaine
i = i - 1
Exit For
End If
Next

i = i + 1
Loop While i < derligne

Bonjour totoche31, le forum,

Un petit fichier peut-être avec le résultat attendu ?

Cordialement,