Bonjour,
Voir ici:
https://fr.wikipedia.org/wiki/Num%C3%A9rotation_ISO_des_semaines
et une formule du maitre Laurent LONGRE (MVP Excl)
Function NoSem(D As Date) As Long 'Laurent Longre 2004
' fonctionne suivant la norme ISO contrairement à no.semaine()
' ds la feuille : =ENT(MOD(ENT((A1-2)/7)+0.6;52+5/28))+1
Application.Volatile True
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