Sub Sous_Total()
RAZ
With Feuil1.[A1].CurrentRegion
.Offset(.Rows.Count + 1) = .Value
.Offset(.Rows.Count + 1).Rows(1).Font.Bold = True 'titre en gras
.Offset(.Rows.Count + 1).Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(2), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End With
End Sub
Sub RAZ()
With Feuil1.[A1].CurrentRegion.EntireRow
.Offset(.Rows.Count).Resize(.Parent.Rows.Count - .Rows.Count - .Row + 1).Delete xlUp
End With
End Sub