SAlut Hug88,
De mémoire je sais qu'il existe une fonction qui permet de renvoyer le jour de la semaine. Dans ton thisworkbook (VBA)
Private sub Workbook_open()
dim m_feuille as string
dim m_nb_fls as integer
dim m_jr_sem as integer
m_nb_fls=worksheets.count
m_jr_sem=weekday(now)
select case m_jr_sem
case 1
sheets("DI").select
case 2
sheets("LU").select
case 3
sheets("MA").select
case 4
sheets("ME").select
case 5
sheets("JE").select
case 6
sheets("VE").select
case 7
sheets("SA").select
end select
end sub
A+ Wilfried ;op