Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
Dim nf$
If Not Intersect(Target, Range("F10:F109")) Is Nothing Then
nf = Target.Offset(, -1)
Worksheets(nf).Visible = IIf(Target <> "", xlSheetVisible, xlSheetHidden)
End If
End Sub
A placer dans le module de la feuille.
Il convient que la plage couverte en F concerne des feuilles existantes mentionnées en E : la réduire en conséquence (en l'état, la limiter à F10:F12, les autres feuilles n'existant pas dans le classeur).
Cordialement.