Sub test()
Dim c As Range, plage As Range
firstdate = CDate("31/12/" & Year(Date) - 1)
Set plage = Range("B1:B" & Cells(Rows.Count, "B").End(xlUp).Row)
For j = 1 To 360
Set c = plage.Find(CDate(firstdate + j), LookIn:=xlValues)
If c Is Nothing Then If Weekday(firstdate + j, vbUseSystemDayOfWeek) < 6 Then texte = texte & "Manquants!!: " & CDate(firstdate + j) & Format(CDate(firstdate + j), " dddd dd mm yyyy") & vbCrLf
If firstdate + j > Date Then Exit For
Next
MsgBox texte ' une partie
Debug.Print texte 'liste complete
End Sub