Merci à tous les deux : vous m'avez bien aidé.
Je laisse le code que j'ai retenu pour ceux qui viendrait sur le forum et qui se poserai la même question que moi :
Function NOSEM(D As Date) As Long
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