page d'accueil pour classeur

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)
  Application.Goto .Offset(1).EntireRow.Find([E2], .Cells(2, 0))
End With
End Sub

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)
  Application.Goto .Cells(-1, 1), True 'cadrage
  .Offset(1).EntireRow.Find([E2], .Cells(2, 0)).Select
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C2]) Is Nothing Then [E2] = ""
End Sub

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