Option Explicit
Function TâchesÀDate(ByVal LaDate As Date, ByVal RngTab As Range) As String
Dim TDon(), LD As Long, TRés() As String, LR As Long
TDon = RngTab.Value
ReDim TRés(1 To UBound(TDon, 1))
For LD = 1 To UBound(TDon, 1)
If TDon(LD, 2) = LaDate Then
LR = LR + 1: TRés(LR) = TDon(LD, 1)
End If: Next LD
If LR = 0 Then TâchesÀDate = "Rien": Exit Function
ReDim Preserve TRés(1 To LR)
TâchesÀDate = Join(TRés, vbLf)
End Function