Sub test()
Dim i As Byte, x As Integer, y As Integer
Application.Goto Sheets('PG2006').Range('A1')
For i = 7 To Range('a65536').End(xlUp).Row
If Cells(i, 1).Value = 'Curatif' Then
If Cells(i, 2).Value = 'Z1' Or Cells(i, 2).Value = 'Z2' Or Cells(i, 2).Value = 'Z3' Then
For j = 8 To 12 Step 2
x = x + Cells(i, j).Value
Next j
For k = 9 To 13 Step 2
y = y + Cells(i, k).Value
Next k
End If
End If
Next i
Sheets('B').Cells(2, 1).Value = x
Sheets('B').Cells(2, 2).Value = y
End Sub