Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B2:C3")) Is Nothing Then Exit Sub
Cells(4, 2) = Application.Index(Feuil1.Range("A2:C500"), Application.Match(Cells(2, 2), Feuil1.Range("A2:A500"), 0), 2)
Cells(4, 5) = Application.Index(Feuil1.Range("A2:C500"), Application.Match(Cells(2, 2), Feuil1.Range("A2:A500"), 0), 3)
End Sub