Sheets("recap-produits").Select
Range("A1:Z" & Derlig).Select
Selection.Subtotal GroupBy:=13, Function:=xlSum, TotalList:=Array(6), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
Sheets("recap-produits").Range("A1").CurrentRegion.Subtotal GroupBy:=4, Function:=xlSum, TotalList:=Array(6), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
ActiveSheet.Outline.ShowLevels RowLevels:=4
Set PlageVisible = ActiveSheet.UsedRange
Set PlageVisible = PlageVisible.SpecialCells(xlCellTypeVisible)
PlageVisible.Copy Sheets("TableauRecap").Range("A1")
Application.CutCopyMode = False