Salut Ludwing,
avant toute chose , ne pas utiliser no.semaine qui est fausse pour les européens...
Prends ceci du grand Maitre Laurent LONGRE MVP Excel:
Option Explicit
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
Patrick