Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo probleme
If Target.Address(0, 0) = 'A1' Then
Workbooks('Classeur2').Activate
ActiveWorkbook.Sheets(Target.Value).Select
End If
Exit Sub
probleme:
MsgBox 'Pas de feuille trouvé sous le nom : ' & Target.Value, vbCritical, 'Attention...'
Workbooks('Classeur1').Activate
End Sub