Sub Recherche()
Dim X As Variant
X = Application.Match(Range("G2"), Range("A1:A100"), 0)
If Range("A" & Rows.Count).End(xlUp).Row > 2 Then
If Not IsError(X) Then
Range("G3").Value = Cells(X, 2)
Range("G4").Value = Cells(X, 3)
Range("G5").Value = Cells(X, 4)
End If
End Sub