Function S3D2(début, fin, champCritère, critère, champSomme, critère2, ChampCritère2)
tot = 0
For s = début To fin
p = Application.Match(critère2, Sheets(s).Range(ChampCritère2), 0)
If Not IsError(p) Then tot = tot + Application.SumIf(Sheets(s).Range(champCritère), critère, Sheets(s).Range(champSomme).Offset(, p - 1))
Next s
S3D2 = tot
End Function