Bonjour,
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