Option Explicit
Sub test()
Dim c As Range, x As Range
With Sheets("Feuil1")
Set x = .Range("B:B").Find("TOP GAMES", , xlValues, xlWhole, , , False)
If x Is Nothing Then Exit Sub
For Each c In .Range(x.ofset(1, 0), .Range("65536").End(xlUp))
Next c
End With
End Sub