Salut, essaye un truc comme ca en faisant bien gaffe aux histoire de premier jour de la semaine, premiere semaine de l annee et pense aussi que ton programme est plus propres si il marche comme tu veux sur TOUS les reglages de ces parametres (defaut systeme? ou au contraire decider par toi meme pour etre sur...)

Function DateOfFirstDay(MyWeekNumber as integer, MyYear as integer) as date

Dim NewYear as Date
Dim FirstDay as integer
Dim DateFirstDay as Date

NewYear=CDate("01/01/" & MyYear)
FirstDay=DatePart("w",NewYear,vbMonday,vbFirstJan1) 'Par exemple pour les 2 derniers parametres
DateFirstDay=DateAdd("ww",MyWeekNumber,NewYear )
DateOfFirstDay=DateAdd("d",-FirstDay+1,DateFirstDay)

End function

Bon j ai pas tester mais ca devrait vraiment pas etre loin de ca...

ö,ö
\_/