NOMBRE DE JOURS OUVRABLES ENTRE DEUX DATES

Public Function JoursOuvrables(ByVal DateDébut As Date, ByVal DateFin As Date) As Integer
  'Initialisation selon si c'est un jour de semaine (<6) ou de fin de semaine (>=6)
  If WeekDay(DateDébut, vbMonday) < 6 Then
    JoursOuvrables = 1
  Else
    JoursOuvrables = 0
  End If

  Do Until DateDébut > DateFin
    If WeekDay(DateDébut, vbMonday) < 6 Then
      JoursOuvrables = JoursOuvrables + 1
    End If
    DateDébut = DateDébut + 1
  Loop
End Function