Tout simplement en mettant une condition :
SI le 1er Janvier est un Lundi ALORS pas besoin de mettre "numsemaine+1" mais juste "numsemaine"
SINON on met "numsemaine+1"
Avec le code que j'ai fourni tout a l'heure :
If Weekday("01/01/" & Year(Date), vbMonday)=1 then
If WorksheetFunction.WeekNum(jour) = numsemaine Then
Cells(ligne, 13) = jour + 1
ligne = ligne + 1
End If
Else
If WorksheetFunction.WeekNum(jour) = numsemaine+1 Then
Cells(ligne, 13) = jour + 1
ligne = ligne + 1
End If
End If
Pour ce qui est de la formule excel, voilà la condition :
=SI(JOURSEM("01/01/"&ANNEE(AUJOURDHUI()))=2;NO.SEMAINE(C3);NO.SEMAINE(C3)-1)