Private Sub ToggleButton1_Click()
With ToggleButton1
Feuil1.Columns("A:B").Hidden = .Value
.BackColor = IIf(.Value, RGB(0, 255, 0), RGB(255, 0, 0)) 'Vert/Rouge
.Caption = IIf(.Value, "Visible", "Cacher") 'Visible//Cacher/
End With
Feuil1.Range("A1").Select
End Sub
Private Sub UserForm_Activate()
ToggleButton1 = True
End Sub