Bouton double affichage

Private Sub CommandButton1_Click() 'bouton "Aficher/Masquer"
ActiveCell.Select 'enlève le focus au bouton
If Me.CommandButton1.Caption = "Masquer" Then 'condition : si le texte du bouton est "Masquer"
    Columns(5).Hidden = True 'masque la colonne 5 (à adapter à ton as)
    Me.CommandButton1.Caption = "Afficher" 'modifie le texte du bouton
    Me.CommandButton1.Accelerator = "A" 'modifie le raccourci clavier du bouton
Else 'sinon
    Columns(5).Hidden = False 'affiche la colonne 5 (à adapter à ton as)
    Me.CommandButton1.Caption = "Masquer" 'modifie le texte du bouton
    Me.CommandButton1.Accelerator = "M" 'modifie le raccourci clavier du bouton
End If 'fin de la condition
End Sub

Range("P1:R1").EntireColumn.Hidden = True '(colonnes conjointes P à R)
Application.Union(Range("P1:Q1"), Range("S1")).EntireColumn.Hidden = True '(colonnes disjointes P, Q et S)