Insérer le numéro de la semaine sous excel

Function NOSEM(D As Date) As Long
'La fonction suivante renvoie le numéro de semaine conforme à la norme ISO, _
utilisée dans les pays européens (la première semaine d'un mois étant définie _
comme la première semaine comportant au moins quatre jours dans le mois).

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

Function ReturnNumWeek(ByVal strDate As Date) As Integer
    ReturnNumWeek = DatePart("w", strDate)
End Function

<code>Bonjour à toutes et à tous,
En me basant sur la formule de JLPPAP et à l'aide des normes ISO fournies par NICL, j'ai établi ce tableau (sous Excel 2007).
Il démontre clairement, à mon avis, que la formule de JLPPAP est on ne peut plus juste.
Par contre celle d'Excel n'est pas fausse pour les EU. Simplement elle n'est pas aux normes européennes.


<code>                             Valeur retournée par la                                 Valeur retournée par
                                 formule de JLPPAP                                    la formule d'Excel 2007	
                    
					
=ENT(MOD(ENT((??-2)/7)+0,6;52+5/28))+1      	                            =NO.SEMAINE(??;2)	
					
					
lundi 1 janvier 2001		1	       	                                         1	
mardi 1 janvier 2002		1		                                         1	
mercredi 1 janvier 2003		1		                                         1	
jeudi 1 janvier 2009		1		                                         1	
vendredi 1 janvier 2010		53		                                         1	
dimanche 1 janvier 2006		52		                                         1	
vendredi 1 janvier 2016		53		                                         1	
samedi 1 janvier 2005		53	(année précédente bisextile)	     1	
samedi 1 janvier 2011		52	(année précédente NON bisextile)     1	
					
(Les ?? dans les formules respectives représentent les références des cellules où sont situées les données dates)					
										
PS :					
samedi 16 janvier 2010		2	(Date fournie par Coco7412 le 31/1/2010)	
C'est bien 2 et non 3 : donc formule juste !					
J'espère que ceci vous sera utile. Amicalement.JP