Re-,
Ça marche, super !
En fait, pas besoin de sélectionner des plages, ça s'applique à la feuille entière.
Du coup, je ne garde de ton code que :
Public Sub DEMO()
With ActiveSheet.Outline
.SummaryRow = xlAbove
.SummaryColumn = xlLeft
End With
End Sub
Cela dit, ça m'étonne que toi, un dieu vivant d'Excel (si, si...) tu n'utilises pas les plans.
Ça permet de clarifier l'utilisation de grandes listes en ne montrant que des "têtes de chapitre".
Mais c'est sans doute faute d'en avoir eu besoin.
Merci encore.