'pour un nouveau bouton
Sub [B][COLOR="Blue"]Bouton23[/COLOR][/B]_QuandClic() [COLOR="DarkGreen"]'macro affectée au bouton nommé[/COLOR] [B][COLOR="Red"][COLOR="Sienna"]Bouton 23 [/COLOR][/COLOR][/B]
[[COLOR="Red"][B]R[/B][/COLOR]5].EntireColumn.Hidden = Not [[B][COLOR="red"]R[/COLOR][/B]5].EntireColumn.Hidden
Vx = [[COLOR="red"][B]R[/B][/COLOR]5].EntireColumn.Hidden [COLOR="DarkGreen"]'colonne concernée par ce bouton[/COLOR]
ActiveSheet.Shapes("[B][COLOR="Sienna"]Bouton 23[/COLOR][/B]").TextFrame.Characters.Font.ColorIndex = IIf(Vx = True, 5, 3)
With ActiveSheet.Shapes("Bouton 31").TextFrame.Characters
.Text = IIf(Vx = True, "Afficher Tout", "Masquer Tout")
.Font.ColorIndex = IIf(Vx = True, 5, 3)
End With
[A1].Select
End Sub