Sub SommCode()
Dim Dico, Tmp, Tablo
Set Dico = CreateObject("Scripting.Dictionary")
Tablo = Worksheets("Sheet1").Range("K3:L11")
For i = LBound(Tablo) To UBound(Tablo)
Dico(Tablo(i, 1)) = Tablo(i, 2)
Next
For i = 2 To Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
Tmp = Split(Cells(i, 1), "+")
If UBound(Tmp) > 0 Then
Cells(i, 3) = Dico(Trim(Tmp(0))) + Val(Replace(Trim(Tmp(1)), ",", "."))
Else
Cells(i, 3) = Dico(Trim(Tmp(0)))
End If
Next
End Sub