XL 2016 Revenir au format d'origine

[Claudy]

Bonjour et bon dimanche à tous....
dans un calendrier, via un USF, j'introduis les congés, maladies, récup, etc....
Avec ceci:

Private Sub OptionButton1_Click() 'congés
Selection = OptionButton1.Caption 'congés
MsgBox OptionButton1.BackColor
Selection.Interior.Color = OptionButton1.BackColor 'jaune
Selection.Font.Color = OptionButton1.ForeColor
Selection.Font = OptionButton1.Font
Selection.Font.Bold = OptionButton1.Font.Bold
Selection.Font.Size = OptionButton1.Font.Size


End Sub
Private Sub OptionButton2_Click() 'Recupération
Selection = OptionButton2.Caption 'Recupération
MsgBox OptionButton1.BackColor
Selection.Interior.Color = OptionButton2.BackColor 'Bleu
Selection.Font.Color = OptionButton2.ForeColor
Selection.Font = OptionButton1.Font
Selection.Font.Bold = OptionButton2.Font.Bold
Selection.Font.Size = OptionButton2.Font.Size


End Sub

Bon si je me trompe de ligne ou de date, ou tout simplement annuler une prestation...
comment revenir au format d'origine ?

Merci d'avance,
Claudy