Somme de ligne et suppression de ligne active

Bonjour le forum,

Je suis en train de travailler sur une petite macro et je bloque sur ma dernière étape.

En effet, sur ma dernière étape, voici ce que j'ai mis dans la macro:

With Workbooks(Fichier_traité).Sheets(Feuille_traitée)

For i = 3 To DerLig

If Range("C" & i) <> Range("C" & i - 1) Then

If LigneFormule > 0 Then

Range("L" & LigneFormule).Formula = "=SUM(H" & LigneFormule & ":H" & i - 1 & ")"

Range("H" & i - 1).Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

End If

Rows(i - 1).Select

Selection.Delete Shift:=xlUp

LigneFormule = i

End If

Next i

End With

LE problème, c'est qu'il ne supprime pas les bonnes lignes, le but étant de sommer les valeurs de colonne H dont les valeurs C soient identiques.

Dans ce fichier, la valeur H2 et H3 doivent être sommées en H2 et la ligne 3 supprimé.

JE vous joint mes 3 fichiers:

Fichier de base - sortie brut du logiciel

Fichier terminé - ce à quoi je souhaiterai arriver

Fichier en cours - Avec la macro.

En remerciant tout le monde par avance.

Kevin

Bonjour,

une proposition

Sub aargh()
    For i = Cells(rows.count, 3).End(xlUp).Row To 2 Step -1
        If Cells(i, 3) = Cells(i - 1, 3) Then
            Cells(i - 1, 8) = Cells(i - 1, 8) + Cells(i, 8)
            Rows(i).Delete shift:=xlUp
        End If
    Next i
End Sub

Merci pour ton aide,

Cela fonctionne parfaitement.