Bonjour laplacea, le forum,
Un essai.....attention , la macro n'agit que sur les feuilles sélectionnées....
Public Sub SommeHockey()
Dim oSh As Worksheet
For Each oSh In ActiveWindow.SelectedSheets
Totaux oSh
Next oSh
End Sub
Public Sub Totaux(poOnglet As Worksheet)
Dim tablo, tabloR()
With poOnglet
.Activate
dl = .Range("A" & Rows.Count).End(xlUp).Row
Set plage = .Range("E2:M" & dl)
tablo = plage
k = 0
For i = 1 To UBound(tablo, 1)
ReDim Preserve tabloR(1 To 9, 1 To k + 1)
tabloR(1, k + 1) = tablo(i, 1)
tabloR(2, k + 1) = Application.Sum(tablo(i, 4), tablo(i, 6), tablo(i, 8))
tabloR(3, k + 1) = Application.Sum(tablo(i, 5), tablo(i, 7), tablo(i, 9))
tabloR(4, k + 1) = tablo(i, 4)
tabloR(5, k + 1) = tablo(i, 5)
tabloR(6, k + 1) = tablo(i, 6)
tabloR(7, k + 1) = tablo(i, 7)
tabloR(8, k + 1) = tablo(i, 8)
tabloR(9, k + 1) = tablo(i, 9)
k = k + 1
Next i
On Error Resume Next
.Range("E2").Resize(UBound(tabloR, 2), 9) = Application.Transpose(tabloR)
End With
End Sub
Amitiés,