Somme avec criteres

Private Sub Macro1()
Dim O As Object 'déclare la variable O (Onglet)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim D As Object 'déclare la variable D (Dictionnaire)
Dim I As Integer 'déclare la variable I (Incrément)
Dim TMP As Variant 'déclare la variable TMP (tableau TeMPoraire)
Dim J As Integer 'déclare la variable J (incrément)
Dim SC() As Variant 'déclare la variable SC (Somme par Critère)
Dim S As Single 'déclare la variable S (Somme)

Set O = Sheets("Feuil1") 'définit l'onglet O (à adapter)
TC = O.Range("A1").CurrentRegion 'définit le tableau TC (à adapter)
Set D = CreateObject("Scripting.Dictionary") 'définit le dictionaire D
For I = 2 To UBound(TC, 1) 'boucle sur toutes les lignes du tableau TC (en partant de la seconde)
    D(Left(TC(I, 1), 3)) = "" 'alimente le dictionnaire D
Next I 'prochaine ligne de la boucle
TMP = D.keys 'récupère dans le tableau temporaire TTMP, la liste du dictionnaire D sans doublons
For J = 0 To UBound(TMP) 'boucle 1: sur tous les éléments du tableau TMP
    ReDim Preserve SC(1, J) 'redimensionne le tableau SC (2 lignes : ligne 0 et ligne 1; J colonnes)
    SC(0, J) = TMP(J) 'définit l'élément de la première ligne du tableau SC (le critère TMP(J))
    For I = 2 To UBound(TC, 1) 'boucle sur toutes les lignes du tableau TC (en partant de la seconde)
        'si les trois premiers caractères de la valeur en TC, ligne I, colonne 1 (=> colonne A) sont identiques au ctitère TMP(J)
        'alors la somme S est égale à elle-même plus la valeur en TC, ligne I colonne 3 (=> colonne C)
        If Left(TC(I, 1), 3) = TMP(J) Then S = S + TC(I, 3)
    Next I 'prochaine ligne de la boucle 2
    SC(1, J) = S 'définit l'élément de la seconde ligne du tableau SC (la somme S)
    S = 0 'réinitialise la somme S
Next J 'prochain élément du tableau TMP
Range("E1").CurrentRegion.Clear 'vide les anciennes données
Range("E1") = "Critère": Range("F1") = "Somme" 'étiquettes en E1 et F1
'en E2, récupère le tableau SC transposé (inversikon lignes et colonnes
Range("E2").Resize(UBound(SC, 2) + 1, UBound(SC, 1) + 1) = Application.Transpose(SC)
End Sub