MsgBox (DateAdd("d", 1 - Weekday(CDate("01/01/2004" ), vbMonday), CDate("01/01/2004" )))
Ca te donne la date de début de la semaine en question.
Démerde-toi pour calculer la date à partir de la semaine, c'est vraiment trop bidon pour mériter qu'on y passe plus de temps.
PS: c'est rigoureusement la même méthode.
C'est pourtant pas bien compliqué