Private Sub Workbook_Open()
Dim NomFeuille As String, F As Worksheet
On Error Resume Next
NomFeuille = Format(Date, "dddd")
Set F = Worksheets(NomFeuille)
If Err <> 0 Then
Err = 0
MsgBox "Il n'y a pas une feuille " & _
"nommée """ & NomFeuille & """ dans ce " & _
"classeur.", vbCritical + vbOKOnly, "Attention"
Else
Sheets(NomFeuille).Select
End If
End Sub