Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$G$2" Then Exit Sub
[A2].Select
If [A2] = "" Or [C2] = "" Or [E2] = "" Then Exit Sub
On Error Resume Next 'si la feuille n'existe pas...
With Sheets([A2].Text).Rows(3).Find([C2], , xlValues, xlPart)
Application.Goto .Cells(-1, 1), True 'cadrage
.Offset(1).EntireRow.Find([E2], .Cells(2, 0)).Select
End With
End Sub