Macro VBA pour déplier tous les groupes de colonne

Bonjour,

Avec l'aide de l'IA, j'ai déployé une macro pour déplier tous les groupes de colonnes d'une feuille sélectionnée, or, seul le premier groupe se développe. Je vous mets en PJ une trame de mon fichier et ci-dessous la macro en question :

Sub DeplierGroupesDeColonnesFeuilleSelectionnee()
    Dim ws As Worksheet
    Dim col As Integer

    ' Définir la feuille active comme la feuille sélectionnée
    Set ws = ActiveSheet

    ' Déplier tous les groupes de colonnes
    With ws
        For col = 1 To ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
            If Columns(col).ColumnWidth = 0 Then
                Columns(col).Hidden = False
            End If
        Next col
    End With
End Sub

Je vous remercie par avance car je sais que vous saurez me débloquer

Cordialement,

bonjour,

Cette ligne devrait suffire :

    ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2

A+

C'est parfait ! merci beaucoup