Amélioration d'un planning

bonjour le forum,

je viens vers vous afin de vous demander de l'aide, j'ai améliorer un planning à l'aide de ce forum et je souhaite apporter plus d'amélioration :

je souhaite qu'il s'ouvre à la date du jour ainsi et le remettre à zéro une fois changé l'année sans perdre les saisie des année précédente est ce que c'est possible?

Public WithEvents GrBoutons As Msforms.CommandButton
Private Sub GrBoutons_Click()
  choixb = GrBoutons.Caption
  Application.ScreenUpdating = False
  If choixb = "Efface" Then
    efface

  Else

    If choixb = "Colorie saisis" Then
      coloriageSaisis
    Else
      p = Application.Match(choixb, [mescouleurs], 0)
      For Each c In Selection
         On Error Resume Next
         col = c.Column
         Range("mescouleurs")(p).Copy c
         '---
         If Range("MotifsCongés")(p) <> "" Then
             If c.Comment Is Nothing Then c.Comment.Shape.OLEFormat.Object.Font.Name = "Tverdana" 'c.AddComment ' CrŽation commentaire

             c.Comment.Shape.OLEFormat.Object.Font.Size = 7
             c.Comment.Shape.OLEFormat.Object.Font.FontStyle = "Normal"
             temp = Range("MotifsCongés")(p)
             c.Comment.Text Text:=temp
             c.Comment.Shape.TextFrame.AutoSize = True
             c.Comment.Visible = False

    Else
             c.ClearComments
         End If

         '---
      Next c
    'If choixb = "M" Then
    Dim S

    S = Selection '(1).Address
    'Range(S).Select
    Dim Mission As String
    Mission = InputBox("Mentionnez le type de mission : ")

    Selection = Mission

    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .MergeCells = True
    End With

    'Range(S).AddComment
    'Range(S).Comment.Visible = False
    'Range(S).Comment.Text Text:="Misiion : " & Chr(10) & Mission
    'End If
    End If
    End If

End Sub

merci encore pour l'aide