Macro qui crée un calendrier sans les weekends

Bonjour.

Je suis nouveau sur VBA et je suis un peu perdu.
Ce que j'essaye de faire : à partir d'une date de départ, d'une date de fin, fournir (sous forme de ligne) le calendrier sans les weekends.

Exemple : date de départ = 02/03/2020, date de fin = 10/03/2020
Je voudrais avoir une macro qui me donne :

Admettons que je souhaite faire ça.

La macro

Sub generer_calendrier()

    mois = 3
    annee = 2020    

    For jour = 2 To 10
    date_du_jour = DateSerial(annee, mois, jour)
        If ???
            Cells(1, jour) = date_du_jour
       End If
    Next

End Sub

Je ne vois pas comment écrire la condition If "si WEEKDAY(date_du_jour) est différent de 6 et 7 alors remplir la cellule"

Merci d'avance !

bonjour,

if WEEKDAY(date_du_jour,2) <6 then

A+

Merci !
Le code final :

Sub generer_calendrier()

    mois = 3
    annee = 2020
    j = 2

    For jour = 2 To 10
    date_du_jour = DateSerial(annee, mois, jour)
    If Weekday(date_du_jour, 2) < 6 Then
        Cells(2, j) = date_du_jour
        j = j + 1
    End If
    Next
End Sub

Bonjour,

Pour le fun...

Public Sub Create_calendar()
Dim dt As Date, dt2 As Date, i As Long
    dt = DateSerial(2020, 3, 2)
    Do While i < 10
        i = i + 1
        dt2 = WorksheetFunction.WorkDay_Intl(dt - 1, i, 1)
        If Weekday(dt2, 2) < 6 Then Cells(1, i).Value = dt2
    Loop
End Sub