Sub cmdCacherAfficher_Click()
Const s$ = " colonnes I:0"
ActiveSheet.Unprotect "toto"
With Range("I1:O1").EntireColumn
.Hidden = Not .Hidden
cmdCacherAfficher.Caption = IIf(.Hidden, "Afficher" & s, "Cacher" & s)
End With
ActiveSheet.Protect "toto"
End Sub