Function TotalH(plage As Range)
Dim xcell As Range, Tblo, nTblo&, i&
Tblo = Range("Table").Value: nTblo = UBound(Tblo)
For Each xcell In plage
If Not IsEmpty(xcell) Then
For i = 1 To nTblo
If xcell.Value = Tblo(i, 2) Then TotalH = TotalH + Tblo(i, 1)
Next i
End If
Next xcell
If TotalH = 0 Then TotalH = ""
End Function