Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next 'Si les noms dans la plage correspondent exactement au noms des onglet tu peux supprimer cette ligne
If Application.Intersect(Target, Range("A1:A15")) Is Nothing Then Exit Sub 'plage A1:A15 à adapter à ton cas
Sheets(Target.Value).Activate
End Sub