XL 2013 Supprimer tous les groupes d'un plan (VBA)

[Jam]

Bonjour à tous,

J'ai une feuille qui comporte plusieurs groupes de plan (des colonnes groupées).
Il y a jusqu'à 4 niveaux (mais cela peut-être variable).
Comment faire en sorte lorsque je lance ma macro de faire en sorte de supprimer tous les groupes (plans) afin de ne plus en avoir du tout.

Faut-il boucler de 8 à 1 (8 étant le max de plan) et degrouper à chaque fois ou existe-t-il une solution plus simple et rapide ?

Merci de votre aide

 

[DoubleZero]

Bonjour, Jam, le Forum,

Comme ceci ?

Option Explicit
Sub Groupes_supprimer()
    Cells.ClearOutline
End Sub

A bientôt

 

[Jam]

Tip top ! Je n'avais pas trouvé le .ClearOutline

Merci