Colorer et indiquer la semaine et le jour en cours en vert

Private Sub Workbook_Open()
Dim Month As Date
Month = Format(Now, "mm")
If Month = 1 Then Sheets("Jan").Select Else
If Month = 2 Then Sheets("Feb").Select Else
If Month = 3 Then Sheets("Mar").Select Else
If Month = 4 Then Sheets("Apr").Select Else
If Month = 5 Then Sheets("May").Select Else
If Month = 6 Then Sheets("Jun").Select Else
If Month = 7 Then Sheets("Jul").Select Else
If Month = 8 Then Sheets("Aug").Select Else
If Month = 9 Then Sheets("Sep").Select Else
If Month = 10 Then Sheets("Oct").Select Else
If Month = 11 Then Sheets("Nov").Select Else
If Month = 12 Then Sheets("Dec").Select Else
 
Call selectdate
End Sub

 Private Sub Workbook_Open()
Dim i As Byte  'on définie la variable des Mois (en Numerique)
Dim Arr_Month As Variant   'on Définie le tableau des Mois(en Lettre)
  Arr_Month = Array("Jan", "Fev", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sept", "Oct", "Nov", "Dec")
For i = 1 To 12  'pour chaque mois
  If Month(Date) = i Then  'si le mois correspond au mois en cours < i >
          Worksheets(Arr_Month(i - 1)).Activate   'on active la feuille correspondante
Call selectdate   'je n’ai pas encore regardé cette partie
 Exit sub 'on quitte lorsque l'on a trouvé la Feuille du mois
  End If   'fin de Condition
Next i   'autre Mois
End Sub