Loto : Receherches de combinaisons dans un tableau

Bonjour à tous,

Je sollicite votre aide car je suis novice en VBA.

J'ai établi deux tableaux, concernant les résultats du loto.

Le premier liste les tirages réalisés ces dernières années. Le second est celui des combinaisons de 5 numéros.

Je souhaiterais, en VBA, pouvoir chercher chaque combinaisons gagnantes (Tirages) dans le tableau "Combinaisons" et selon la place de ce tirage copier le "rang" (en tête de colonne du tableau combinaisons RANG 1, RANG 2,...) dans le tableau tirage en face de la combinaison.

Je vous remerci par avance pour votre aide.

PS: le fichier joint est en xlsx, trop lourd en xlsm, désolé.

Bon ... J'ai déja un début que j'ai bidouillé mais maintenant je coince sur la boucle ... Une âme charitable ?

Sub recherche()

'Déclaration des Variables

Dim VarTirages As Worksheet

Set VarTirages = Sheets("Tirages")

Dim VarCombinaisons As Worksheet

Set VarCombinaisons = Sheets("Combinaisons")

Dim VarCell As Range

VarTirages.Activate

Set VarCell = Cells(2, 7)

VarCombinaisons.Activate

Cells.Find(What:=VarCell, After:=ActiveCell, LookIn:=xlFormulas, _

LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _

MatchCase:=True, SearchFormat:=False).Activate

Selection.Interior.Color = RGB(174, 240, 194)

End Sub