Function RechercheJour$(x, dates As Range, zone As Range, sep$)
Dim ref, r, ncol%, i&, j%, t$
Set ref = Intersect(dates, Application.Caller.Parent.UsedRange)
Set r = Intersect(ref.EntireRow, zone.EntireColumn)
ref = ref 'matrice
r = r 'matrice
ncol = UBound(r, 2)
For i = 1 To UBound(r)
For j = 1 To ncol
If r(i, j) = x Then t = t & sep & Day(ref(i, 1))
Next
Next
RechercheJour = Mid(t, Len(sep) + 1)
End Function