Sub sommer()
Dim tablo() As Variant
tablo = Range("C5:D26") 'on place le tablo excel dans un tablo vba
code = Range("G5") 'récupère le code à traiter
somme = 0 'initialisation
For i = LBound(tablo, 1) To UBound(tablo, 1) 'pour chaque ligne du tablo
If tablo(i, 1) = code Then somme = somme + tablo(i, 2) 'si la première colonne = code, alors, on ajoute la seconde colonne à la somme
Next i
Range("G6") = somme 'on recopie le résultat
End Sub