Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
Sheets("Paramètre").Visible = True
ToggleButton1.Caption = "Masquer la feuille Paramètre"
ToggleButton1.BackColor = &HFF&
ToggleButton1.ForeColor = &HFFFF&
Sheets("Paramètre").Activate
End If
If ToggleButton1 = False Then
Sheets("Paramètre").Visible = False
ToggleButton1.Caption = "Afficher la feuille Paramètre"
ToggleButton1.BackColor = &HFF&
ToggleButton1.ForeColor = &HFFFF&
Sheets(Month(Date)).Activate
End If
End Sub