Cumul sur autre feuille

Sub Total()

Dim plg As Range, cell As Range
Dim col As New Collection, i As Integer, TT As Long

'défini la plage de la feuille 1
Set plg = Sheets("Feuil1").Range("A3:A" & Sheets("Feuil1").Range("A65536").End(xlUp).Row)

'récupère les noms sans doublon
For Each cell In plg
    On Error Resume Next
    col.Add cell, CStr(cell)
    On Error GoTo 0
Next cell

' pour chaque nom, calcul le total
For i = 1 To col.Count
    For Each cell In plg
        If cell.Value = col.Item(i) Then
           TT = TT + cell.Offset(0, 1).Value
           Sheets("Feuil2").Range("A" & i + 2).Value = col.Item(i)
           Sheets("Feuil2").Range("B" & i + 2).Value = TT
        End If
    Next
    TT = 0
Next i

End Sub