je suis repassé sur le site donnant les formules...
je ne sais pas si toutes sont justes car elles me donnent un résultat parfois différents...
mais bon ta demande était d'avoir le code VB, j'ai pris une formule
qui marche:
=ENT(MOD(ENT((A1-2)/7)+0.6;52+5/28))+1
ce qui devrait donner :
mydate = Range('A1').Value2
mod_1 = 52 + 5 / 28
no_de_semaine = Int(mod_1 Mod (Int((mydate - 2) / 7) + 0.6)) + 1
pour A1= 01/01/05, j'ai 53 ce qui est faux, mais le calcul est bon il me semble (fidèle au modèle je veux dire).
il se peut que c'est l'histoire des dates / 1900 qu'il faut travailler pour avoir 1 en fait comme numéro de semaine...
je vais fouiller un peu plus...
a+