Function NbPrésents(ByVal Déb As Date, ByVal Fin As Double, ByVal RngES As Range) As Long
Dim TES(), L As Long, Ent As Date, Sor As Date
TES = RngES.Value
For L = 1 To UBound(TES)
Ent = TES(L, 1): If Ent < Déb Then Ent = Déb
If VarType(TES(L, 2)) = vbDate Then
Sor = TES(L, 2): If Sor > Déb Then Sor = Fin
Else: Sor = Fin: End If
NbPrésents = NbPrésents - (Sor >= Ent): Next L
End Function