Salut Alex,
Alors je ne comprend pas l'utilité de ce code :
For Each o In UsedRange
o.Activate
Next
et de celui ci:
Do Until j = iL
If Cells(i, 1 + j).Value = "" Then
Cells(i, 1 + j).Value = Cells(i + 1, 1 + j).Value
j = j + 1
Loop
C'est juste pour moi comprendre...
Pour la somme ajoute cette ligne :
Cells(i, 3).Value = Cells(i, 3).Value + Cells(i + 1, 3).Value
Ta boucle sera alors:
Do While i < iR
If Cells(i, 1).Value = "" Then
Exit Do
Do While Cells(i, 1).Value = Cells(i + 1, 1).Value
Cells(i, 3).Value = Cells(i, 3).Value + Cells(i + 1, 3).Value
Do Until j = iL
If Cells(i, 1 + j).Value = "" Then
Cells(i, 1 + j).Value = Cells(i + 1, 1 + j).Value
j = j + 1
Loop
Rows(i + 1).Delete
j = 1
Loop
i = i + 1
Loop
Cordialement...