re
pas de zip alors on le fait à la main
je te propose
feuille 1 liste des noms de feuille(nommée 'liste')
feuille 2 cellule A1
données validation liste (au lieu de formulaire)
=liste
alt F11
dans feuille 2, code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = '$A$1' Then
Range('A2').Select
Sheets(Range('A1').Value).Activate
ActiveSheet.Range('A1').Select
End If
End Sub
bien sûr tu nommes tes feuilles correspondant à la liste sinon bug
A+