Sub TestingNetWorkDays()
Dim WorkingDay As Integer
Dim DateFrom As Date, DateTo As Date
DateFrom = '21/03/2005' 'Pourrait être une référence Range('A1')
DateTo = '27/03/2005'
WorkingDay = Evaluate(networkdays(DateFrom, DateTo))
MsgBox WorkingDay & ' Jours ouvrables entre le ' & DateFrom & ' & ' & DateTo
End Sub