Private Sub Workbook_Open()
Dim moiscourant As String
Dim myvalue As Variant
moiscourant = VBA.MonthName(Month(Date)) & ' ' & VBA.Year(Date)
On Error Resume Next
Set myvalue = ThisWorkbook.Worksheets(moiscourant)
If myvalue = True Then
myvalue.Select
Else: MsgBox 'la feuille n'existe pas ou est mal orthographiée'
End If
End Sub