Macro pour afficher des colonnes cachés

Bonjour tout le monde,

Je suis novice en vba et j'ai besoin de votre aide. J'ai plusieurs colonnes cachées et j'aimerais créer une macro qui me permet d'afficher une colonne à la fois. Ce que j'ai en tête c'est de créer un bouton auquel je vais associer ma macro, ce bouton je vais le nommer ajouter une colonne. Donc, l'utilisateur de mon fichier lorsqu'il voudra ajouter une colonne, il clic sur le bouton et la colonne apparaît (par exemple la colonne C), lorsqu'il reclic à nouveau sur le bouton la colonne suivante apparaît (la colonne D) et ainsi de suite. Pour le moment, je suis capable de créer un macro qui me permet d'afficher une seule colonne lorsque m'exécute à nouveau ma macro rien ne change (la colonne suivante ne s'affiche pas).

J'espère que j'étais un peu claire.

Je vous remercie d'avance pour votre aide.

Bonjour et bienvenue,
Un exemple dans le fichier joint.
Cdlt.

Public Sub DisplayColumns()
Dim ws As Worksheet, n As Long, i As Long, Found As Boolean
    Set ws = ActiveWorkbook.Worksheets(1)
    With ws
        n = .Cells(1, Columns.Count).End(xlToLeft).Column
        Do While i <= n And Found = False
            i = i + 1
            If .Cells(1, i).EntireColumn.Hidden = True Then
                Found = True
                .Cells(1, i).EntireColumn.Hidden = False
            End If
        Loop
    End With
End Sub

Bonjour et bienvenue sur le forum

Bonjour à tous

Une variante à tester :

Option Explicit
Dim plage
Dim j&, nbcol&

Sub AjouterUneColonne()
    Set plage = ActiveSheet.UsedRange
    For j = 1 To plage.Columns.Count
        If plage.Columns(j).EntireColumn.Hidden = True Then
            plage.Columns(j).EntireColumn.Hidden = False
            Exit For
        End If
    Next j
End Sub

Bye !

Ceci fonctionne parfaitement. Merci beaucoup, c'est très gentil de votre part.

Merci et bonne journée.