Bouton

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Aujourd'hui" Then
    CommandButton1.Caption = "Demain"
    ' La macro Aujourd'hui
Else
    CommandButton1.Caption = "Aujourd'hui"
    ' La macro Demain
End If
End Sub

Private Sub ToggleButton1_Click()
With ToggleButton1
    .Caption = IIf(.Value = 0, "AUJOURD'HUI", "DEMAIN")
End With
End Sub

Private Sub CommandButton1_Click()
    If CommandButton1.Caption = "Demain" Then
        CommandButton1.Caption = "Aujourd'hui"
    Else
        CommandButton1.Caption = "Demain"
    End If
End Sub