Function NoSemEur(MaDate As Date) As Integer
NoSemEur = DatePart("ww", MaDate, 2, 2)
End Function
Function derjourb(LaDate As Date)
If Month(LaDate) = 12 Then
derjourb = CDate("01/01/" & Year(LaDate) + 1) - 1
Else
derjourb = CDate("01/" & Month(LaDate) + 1 & "/" & Year(LaDate)) - 1
End If
End Function
Sub test()
Dim PremierJour As Date
Dim DernierJour As Date
Dim j, i As Integer
PremierJour = Sheets(1).Cells(4, 1).Value
DernierJour = derjourb(PremierJour)
numdebut = NoSemEur(PremierJour)
numfin = NoSemEur(DernierJour)
For j = numdebut To numfin
Sheets(1).Cells(4 + i, 11).Value = j
i = i + 1
Next
End Sub