Ave,
=ENT(MOD(ENT((LaDate-2)/7)+0.6;52+5/28))+1
Un bémol : cette fonction n'est pas compatible avec le calendrier 1904
Pour norme iso et compatibilité calendriers 1900/1904 :
=1+ENT(MIN(MOD(laDate-DATE(ANNEE(laDate)+{-1;0;1};1;5)+JOURSEM(DATE(ANNEE(laDate)+{-1;0;1};1;3));734))/7)
ou une fonction perso :
Function NUMSEM_ISO(cel As Range) 'AV
If Day(cel) = 2 And Month(cel) = 1 And Year(cel) Mod 400 = 101 Then NUMSEM_ISO = 52: Exit Function
NUMSEM_ISO = IIf(Weekday(cel) = 2 And Month(ladate) = 12 And Day(cel) > 28, 1, DatePart('ww', cel, 2, 2))
End Function
AV [aaa]