Option Explicit
Private Sub ToggleButton1_Click()
Rows("14:21").EntireRow.Hidden = IIf(ToggleButton1 = False, False, True)
ToggleButton1.Caption = IIf(ToggleButton1 = False, "Masquer", "Afficher")
ToggleButton1.BackColor = IIf(ToggleButton1 = False, &H80FF&, &H80FF80)
End Sub