Bonjour
Une piste
1) Remplacer tous les noms par des N°
2) Puis faire recherche comme si c'était des combinaisons
La macro ci-dessous n'est pas de moi, mais de pierrejean
Sub test()
' Ligne d'affichage des résultats
Range("C3:IV3").ClearContents
col = 3
'Ligne du quinté à comparer
Set quinte = Range("C2:G2")
'Base de données
tablo = Range("B5:G" & Range("B65536").End(xlUp).Row)
' Transforme les cellules quinté à comparer en chaine de caractères
For Each cel In quinte
Q = Q & cel.Value & ";"
Next cel
' Cherche dans le tableau, colonnes 2,3 et 4,les valeurs, si les 3 valeurs sont trouvées, donc tiercé
' La première colonne du tableau contenant les dates, les colonnes tiercé sont 2,3,4
For n = LBound(tablo, 1) To UBound(tablo, 1)
If InStr(Q, tablo(n, 2) & ";") <> 0 And InStr(Q, tablo(n, 3) & ";") <> 0 And InStr(Q, tablo(n, 4) & ";") <> 0 Then
Cells(3, col) = tablo(n, 1)
col = col + 1
End If
Next n
End Sub