Sub test()
Dim l As Integer, c As Byte, tb(1 To 5) As Variant, t(1 To 5) As Variant, s As String, di
Set di = CreateObject("scripting.dictionary")
With Sheets("Résultats")
For l = 2 To .Range("A65536").End(xlUp).Row
For c = 1 To 5
tb(c) = .Cells(l, c).Value
Next c
s = Join(tb, ";")
di.Add s, s
Next l
End With
With Sheets("Feuil1")
For c = 1 To 5
t(c) = .Cells(1, c).Value
Next c
End With
s = Join(t, ";")
MsgBox IIf(di.Exists(s), "Combinaison déjà sortie", "Combinaison jamais sortie")
End Sub