Sub Macro1()
Dim TOPTEN_N1 As Variant
Dim TOPTEN_N2 As Variant
Dim Ligne As Variant
Dim n As Variant
Application.ScreenUpdating = False
j = 3
For i = 1 To 9 Step 2
n = 1
Sheets("Tirage").Activate
For Each TOPTEN In Range(Cells(5, i), Cells(14, i))
If TOPTEN.Value <> "" Then
Sheets("MEMENTO").Activate
Ligne = Sheets("MEMENTO").Range("B7:B60").Find(what:=TOPTEN, LookIn:=xlFormulas, LookAt:=xlWhole).Row
If n <= 3 Then
Cells(Ligne, i + j).Resize(, 2).Interior.ColorIndex = 6 'jaune
ElseIf n > 6 Then
Cells(Ligne, i + j).Resize(, 2).Interior.ColorIndex = 8 'bleu
Else
Cells(Ligne, i + j).Resize(, 2).Interior.ColorIndex = 4 'vert
End If
n = n + 1
End If
Next TOPTEN
j = j + 1
Next i
Application.ScreenUpdating = True
End Sub