Sub hidetesthaut()
ActiveSheet.Unprotect
Dim f As Boolean: f = Columns("b").Hidden: Columns("b:h").Hidden = Not f
ActiveSheet.Shapes("Rectangle 7").TextFrame.Characters.Text = _
IIf(f, "Masqu", "Affich") & "er test haut"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub