Sub MasquerDemasquer()
Set Sh = ActiveSheet.Shapes("Bouton")
If Sh.TextFrame2.TextRange.Text = "Masquer colonnes" Then
[E:O].EntireColumn.Hidden = True
Sh.TextFrame2.TextRange.Text = "Démasquer colonnes"
Sh.Fill.ForeColor.RGB = RGB(255, 255, 0)
Else
[E:O].EntireColumn.Hidden = False
Sh.TextFrame2.TextRange.Text = "Masquer colonnes"
Sh.Fill.ForeColor.RGB = RGB(150, 200, 220)
End If
End Sub