XL 2013 Alimenter une colonne avec toutes les données ayant la même date - rechercheV++

Option Explicit
Function Ressortir(ByVal Quoi, ByVal VClé, ByVal Dans)
   Dim RngAC As Range, LDon As Long, LRés As Long, TRés()
   If TypeOf Quoi Is Range Then Quoi = Quoi.Value
   If TypeOf VClé Is Range Then VClé = VClé.Value
   If TypeOf Dans Is Range Then Dans = Dans.Value
   Set RngAC = Application.Caller
   ReDim TRés(1 To RngAC.Rows.Count, 1 To 1)
   For LDon = 1 To UBound(Dans, 1)
      If Dans(LDon, 1) = VClé Then LRés = LRés + 1: TRés(LRés, 1) = Quoi(LDon, 1)
      Next LDon
   While LRés < UBound(TRés, 1): LRés = LRés + 1: TRés(LRés, 1) = "": Wend
   Ressortir = TRés
   End Function

=Ressortir(présence!$C$2:$C$26;B4;présence!$B$2:$B$26)

Function Ressortir(ByVal Quoi, ByVal VClé, ByVal Dans)
   Dim RngAC As Range, LDon As Long, LRés As Long, TRés()
   If TypeOf Quoi Is Range Then Quoi = Quoi.Value
   If TypeOf VClé Is Range Then VClé = VClé.Value
   If TypeOf Dans Is Range Then Dans = Dans.Value
   Set RngAC = Application.Caller ' Plage d'où est invoquée la fonction.
   ReDim TRés(1 To RngAC.Rows.Count, 1 To 1) ' Réserve le nombre de lignes de cette plage × 1 seule colonne au tableau résultant.
   For LDon = 1 To UBound(Dans, 1) ' Pour LDon = 1 jusqu'au nombre de ligne de Dans
      If Dans(LDon, 1) = VClé Then LRés = LRés + 1: TRés(LRés, 1) = Quoi(LDon, 1)
      Next LDon
   While LRés < UBound(TRés, 1): LRés = LRés + 1: TRés(LRés, 1) = "": Wend ' Complète d'une chaîne vide les postes non renseignés (Sinon Excel assume 0)
   Ressortir = TRés ' Renvoie le tableau dynamique résultant.
   End Function