recherche combinaisons

=ET(SOMME(NB.SI($C$4:$F$4;Q18:U18))=$C$3;
    SOMME(NB.SI($G$4:$J$4;Q18:U18))=$G$3;
    SOMME(NB.SI($K$4:$O$4;Q18:U18))=$K$3;
    SOMME(NB.SI($P$4:$Z$4;Q18:U18))=$P$3)

Sub toto()
Dim i&, j&, k&, tf As Boolean, a, na&, rf(), dt(), s() As Boolean

'==== À adapter =====================================================
rf = [REF].Value 'Dans votre exemple : [REF]=Feuil1!$C$3:$Z$4
dt = [DAT].Value 'Dans votre exemple : [DAT]=Feuil1!$Q$18:$U$30
'====================================================================

  ReDim s(1 To UBound(dt, 1), 0)
  For i = 1 To UBound(dt, 1)
    tf = True
    For k = UBound(rf, 2) To 1 Step -1
      a = rf(2, k)
      For j = 1 To UBound(dt, 2)
        If dt(i, j) = a Then na = na + 1
      Next
      If Not IsEmpty(rf(1, k)) Then
        tf = tf And na = rf(1, k)
        na = 0
      End If
    Next
    s(i, 0) = tf
  Next

'==== À adapter en fonction de l'emplacement des résultats===========
With [DAT]: .Offset(, 2).Columns(.Columns.Count).Value = s: End With
'====================================================================

End Sub