Trouver dernier jour ouvré de l'année derniere

Bonjour,

SVP pourriez vous m'aider à transformer cette fonction Excel en VBA :

=DATE(ANNEE(B1);1;-MAX(JOURSEM(DATE(ANNEE(B1);1;0);2)5;0)) Ici la date est dans la cellule B1 mais a la place je vais la renseigner par un InputBox

Je veux retrouver le dernier jour ouvré de l'année N-1

J'ai essayé ce code mais ca ne marche pas :/

Sub dateannée()

Worksheets("Feuil2").Select

maDate = InputBox("Merci de renseigner une date :", "Application", Date)

StDate = Day(maDate) - WorksheetFunction.max((Weekday((maDate), 2) - 5), 0)

End Sub

Bonsoir,

Sujet clos?

Public Sub DEMO()
Dim dt As Date, n As Integer
    dt = DateSerial(Year(Date), 1, 0)
    n = Choose(Weekday(dt), -2, 0, 0, 0, 0, 0, -1)
    MsgBox FormatDateTime(dt + n, vbLongDate)
End Sub

Merci Jean-Eric oui c'était déjà clos