Sub test()
Dim Jour&, D As Object, DFin As Object, Tmp$
Set D = CreateObject("Scripting.dictionary")
Set DFin = CreateObject("Scripting.dictionary")
Jour = DateSerial(Year(Date) - 1, 12, 31)
Do
Jour = Jour + 1
Tmp = Format(Jour, "MMMM YYYY")
If Weekday(Jour, 2) > 4 Then D(Tmp) = D(Tmp) + 1
If D(Tmp) = 15 Then
DFin(Tmp) = Tmp
Debug.Print Tmp
End If
Loop While DFin.Count < 30
End Sub