Option Explicit
Function NbJoursDates(a As Range, b As Range) As Long
Dim DateDeb As Date, DateFin As Date
DateDeb = CDate(Left$(a, 2) & "/" & Mid$(a, 4, 2) & "/" & Right$(a, 4))
DateFin = CDate(Left$(b, 2) & "/" & Mid$(b, 4, 2) & "/" & Right$(b, 4))
NbJoursDates = DateDiff("d", DateDeb, DateFin, vbUseSystem, vbUseSystem)
End Function
|