Function Total(MaPlage, Critère)
Dim Tableau, i As Long, j As Long, Somme
Tableau = MaPlage
For i = LBound(Tableau, 2) To UBound(Tableau, 2)
If Tableau(1, i) = Critère Then
For j = LBound(Tableau, 1) + 1 To UBound(Tableau, 1)
Somme = Somme + Tableau(j, i)
Next
End If
Next
Total = Somme
End Function