Option Explicit
Sub test()
Range("E5,F5").EntireColumn.Hidden = Not Range("E5,F5").EntireColumn.Hidden
With ActiveSheet.Shapes("Button 31").TextFrame.Characters
.Text = IIf(Range("E5").EntireColumn.Hidden, "Masquer Tout", "Afficher Tout")
.Font.ColorIndex = IIf(Range("E5").EntireColumn.Hidden, 3, 5)
End With
End Sub