Sub Auto_Open()
'
' Macro1 Macro
Dim Maintenant As Date
Dim Nom As String
Dim Cellule As Range
Dim Colonne As Integer
Dim AnneeClasseur As Integer
Dim Annee As Integer
Dim Mois As Integer
Dim Jour As Integer
AnneeClasseur = CInt(Left(Sheets(1).Name, 4))
Maintenant = Date
Annee = Year(Maintenant)
Mois = Month(Maintenant)
Jour = Day(Maintenant)
If Annee = AnneeClasseur Then
Nom = Format(Maintenant, "yyyy-mm")
Colonne = (6 + ((Jour * 2)) - 1)
Sheets(Nom).Select
Set Cellule = Cells(6, Colonne)
Cellule.Select
End If 'Annee = AnneeClasseur
End Sub