Validation écart de date sans week-end

Private Sub CommandButton1_Click()
    Dim i As Long, DRL As Long
    With Sheets("feuil1")
        DRL = .Range("A65536").End(xlUp).Row
        For i = 2 To DRL
            If .Cells(i, 1).Value >= CDate(TextBox2.Value) Then
                If .Cells(i, 1).Value <= CDate(TextBox3.Value) And Not Weekday(.Cells(i, 1).Value) = 7 _
                    And Not Weekday(.Cells(i, 1).Value) = 1 Then
                    .Cells(i, 2).Value = TextBox1.Value
                End If
            End If
        Next i
    End With
    TextBox1.SetFocus
    MsgBox "DONNEES   ENREGISTREES"
End Sub