Option Explicit
Sub test()
Dim x As Range, y As Range
Set x = Columns(1).Find(Feuil2.Range("A1").Value, , xlValues, xlWhole, , , 0)
Set y = Rows(1).Find(Feuil2.Range("A2").Value, , xlValues, xlWhole, , , 0)
If Not x Is Nothing And Not y Is Nothing Then Cells(x.Row, y.Column).Select
End Sub