XL 2016 supprimer doublons et additionner les données

Option Explicit
Private Sub Worksheet_Activate()
   Dim LOt As ListObject, Tech As SsGr, Ref As SsGr, T(), L As Long, C As Long, DifL As Long
   Set LOt = Feuil5.ListObjects(1)
   ReDim T(1 To LOt.ListRows.Count, 1 To LOt.ListColumns.Count)
   For Each Tech In Gigogne(LOt, 1, 2)
      For Each Ref In Tech.Co
         L = L + 1
         T(L, 1) = Tech.Id
         T(L, 2) = Ref.Id
         For C = 3 To UBound(T, 2)
            T(L, C) = Ref.Somme(C): If T(L, C) = 0 Then T(L, C) = Empty
            Next C, Ref, Tech
   Set LOt = Me.ListObjects(1)
   DifL = L - LOt.ListRows.Count
   If DifL > 0 Then
      LOt.HeaderRowRange.Offset(1).Resize(DifL).Insert xlShiftDown
   ElseIf DifL < 0 Then
      LOt.HeaderRowRange.Offset(1).Resize(-DifL).Delete
      End If
   LOt.DataBodyRange.Value = T
   End Sub