Sub toto()
Dim T
Dim Pl As Range, cel As Range
T = Range("M2:M20") 'ici tu rensigne la liste séléctionnée (Choux, Poireau, Carotte, Patate ou Haricot)
Set Pl = Range("A2:A13")
Dim Somm As Integer
Somm = 0
For Each cel In Pl
If Not IsError(Application.Match(cel.Value, T, 0)) Then Somm = Somm + Range("B" & cel.Row).Value
Next cel
MsgBox (" Total Legumes : " & Somm)
End Sub