Regroupement de même famille

Bonjour, je voudrais regrouper des pièces de même nom dans une seule cellule, en sommant leurs durées de réparations respectives, vous trouverez un exemple en pièce jointe, merci d'avance.

Bonjour,

Sub Compile()
Dim Lg&, i%, x%
    Application.ScreenUpdating = False
    Lg = Range("a" & Rows.Count).End(xlUp).Row
    '--- tri colonne C ---
    Range("a2:d" & Lg).Sort _
        Key1:=Range("c2"), Order1:=xlAscending, _
    Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    '---
    For i = 2 To Lg
        If Cells(i + 1, "c") = Cells(i, "c") Then
            x = i
            Do While Cells(x + 1, "c") = Cells(i, "c")
               Cells(i, "d") = Cells(i, "d") + Cells(x + 1, "d")
               Cells(x + 1, "a").ClearContents
               x = x + 1
            Loop
            i = x
        End If
    Next i
        On Error Resume Next
    Range("a2:a" & Lg).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Bonne journée

Claude

Un grand merci à vous, j'essairai et je vous donnerai le feedback, encore merci

ça a fonctionné, je ne sais pas comment vous remercier

Si tu repasse par là, n'oublie pas la petite formalité

à la prochaine

Claude