Bonsoir à tous,
Via un dico :
Option Explicit
Sub test()
Dim a, i As Long, j As Long, n As Long, dico As Object
Set dico = CreateObject("Scripting.Dictionary")
dico.CompareMode = 1
n = 1
a = Sheets("Actuel").Range("a1").CurrentRegion.Value
For i = 2 To UBound(a, 1)
If Not dico.Exists(a(i, 14)) Then
n = n + 1
For j = 1 To UBound(a, 2)
a(n, j) = a(i, j)
Next
dico(a(i, 14)) = n
Else
For j = 15 To UBound(a, 2)
a(dico(a(i, 14)), j) = a(dico(a(i, 14)), j) + a(i, j)
Next
End If
Next
With Sheets("Souhaité").Range("a1")
.CurrentRegion.ClearContents
.Resize(n, UBound(a, 2)).Value = a
End With
Set dico = Nothing
End Sub
klin89