Sub Recherche()
'Feuil1 et Feuil2 sont les CodeNames des feuilles
Dim txt$, lig&, smois, i&, j%, s, k%
txt = Application.Proper(Left(Format([E17], "dddd"), 2)) & Day([E17]) & Format([E17], "mmmm")
lig = 18 '1ère ligne des résultats
With Feuil1
smois = Split(.Cells(4, 23).Text, vbLf)
For i = 4 To .[A65536].End(xlUp).Row
For j = 24 To 60
s = Split(.Cells(i, j), vbLf)
For k = 0 To UBound(s)
If Val(s(k)) Then
If .Cells(3, j) & Val(s(k)) & smois(k) = txt Then
Feuil2.Cells(lig, 1) = .Cells(i, 1)
lig = lig + 1
End If
End If
Next
Next
Next
End With
End Sub