Sub Somme()
Dim w As Worksheet
Application.ScreenUpdating = False
With Sheets("Bilan").[D59:F70] 'à adapter éventuellement
.ClearContents 'RAZ
For Each w In Worksheets
If w.Name <> .Parent.Name Then
w.[O2:Q13].Copy 'à adapter éventuellement
.PasteSpecial xlPasteValues, Operation:=xlAdd
End If
Next
Application.CutCopyMode = False
Application.Goto .Cells, True 'cadrage, facultatif
End With
End Sub