Encadrement de 2 dates en fct° de N° semaine

Function NoSem(D As Date) As Long 'Laurent Longre
' fonctionne suivant la norme ISO contrairement à no.semaine()
D = Int(D)
NoSem = DateSerial(Year(D + (8 - Weekday(D)) Mod 7 - 3), 1, 1)
NoSem = ((D - NoSem - 3 + (Weekday(NoSem) + 1) Mod 7)) / 7 + 1
End Function

Function NoSemaine(Optional UneDate As Date = 0) As Integer
'SOURCE:http://mypage.bluewin.ch/w.stucki/CalculsDates.htm#NoSem
' Objectif: UneDate est la date dont on veut calculer le numéro de semaine européen
' En Europe, la 1ère semaine d'une nouvelle année est la semaine contenant le premier lundi
' Aux USA, la 1ère semaine est celle du 1er janvier.
' Exemple: Format("01/10/2000","ww", vbMonday, vbFirstFullWeek) donne 40
' Exemple: DatePart("ww","01/01/2002",vbMonday,vbFirstFullWeek) donne 53 (dernière semaine de l'an 2001)
' Ce résultat de 53 est obtenu quand le 1er janvier est un mardi ou quand le 1er janvier est un mercredi et que
' l'année précédente est bissextile.
If UneDate = 0 Then
   UneDate = Date
End If
NoSemaine = DatePart("ww", UneDate, vbMonday, vbFirstFullWeek)
End Function