Sub Grouper()
Dim t, ub&, a(), i&, k%, n&, x$, j&
With Feuil1 'CodeName de la feuille
t = .[A1].CurrentRegion.Resize(, 5) '5 colonnes
ub = UBound(t)
ReDim a(1 To ub * UBound(t, 2), 1 To 1)
For i = 2 To ub
x = t(i, 1) & t(i, 2) & t(i, 3) & t(i, 4)
For k = 1 To 5
n = n + 1: a(n, 1) = t(i, k)
Next
For j = i + 1 To ub
If t(j, 1) & t(j, 2) & t(j, 3) & t(j, 4) <> x Then Exit For
a(n, 1) = a(n, 1) + t(j, 5)
Next
i = j - 1
Next i
With .[G2] 'cellule à adapter
If n Then .Resize(n) = a
.Offset(n).Resize(Rows.Count - n - .Row + 1).ClearContents 'RAZ en dessous
End With
With .UsedRange: End With 'actualise la barre de défilement verticale
End With
End Sub