Microsoft 365 Afficher onglet selon valeur cellule via un bouton de validation

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [G10]) Is Nothing Then
        If Target = "" Then Exit Sub
        Application.ScreenUpdating = False
        For Each F In Worksheets
            SheetName = Target
            Sheets(SheetName).Visible = True
            If F.Name <> Target Then
                Sheets(F.Name).Visible = 2
            End If
        Next F
    End If
Fin:
Application.ScreenUpdating = True
End Sub
Sub Home()
    ' Masque toute feuille, retour à la feuille Acceuil
    Application.ScreenUpdating = False
    For Each F In Worksheets
        Sheets("Accueil").Visible = True
        If F.Name <> "Accueil" Then
            Sheets(F.Name).Visible = 2
        End If
    Next F
End Sub

Sub Valider()
    On Error GoTo Fin: Target = [G10]
    Application.ScreenUpdating = False
    Sheets(Target).Visible = True
    For Each F In Worksheets
        If F.Name <> Target Then Sheets(F.Name).Visible = 2
    Next F
Fin:
Application.ScreenUpdating = True
End Sub