Private Sub Workbook_Open()
ListeMois = Array("Rien", "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Décembre")
NomFeuille = ListeMois(Month(Date))
If Existe(NomFeuille) = True Then
Sheets(NomFeuille).Activate
End If
End Sub
Function Existe(FeuilleAVerifier)
Dim Feuille As Worksheet
Existe = ""
For Each Feuille In Worksheets
If UCase(Feuille.Name) = UCase(FeuilleAVerifier) Then
Existe = True
Exit Function
End If
Next Feuille
Exit Function
SiErreur:
MsgBox "Une erreur s'est produite..."
FeuilleExiste = CVErr(xlErrNA)
End Function