Function SommeSi(xCodeA, xCodeB, ParamArray xZones()) As Long
Dim yZone, i As Long, j As Long
Dim yWs As Worksheet, DebLig As Long, FinLig As Long
Dim DebCol As Long, Fincol As Long
For Each yZone In xZones
Set yWs = yZone.Parent
DebLig = 1: FinLig = yZone.Rows.Count
DebCol = yZone.Column: Fincol = DebCol + yZone.Columns.Count - 1
For i = DebLig To FinLig Step 4
For j = DebCol To Fincol
If yWs.Cells(i, j) Like xCodeA And yWs.Cells(i + 1, j) Like xCodeB Then
SommeSi = SommeSi + yWs.Cells(i + 2, j)
End If
Next j
Next i
Next yZone
End Function