Faire fonctionner un Macro avec feuille cacher

Voici mes deux questions en images :

Et je vous joins le fichier en question, merci infiniment, mon projet demande la réalisation de ces points et je n'ai aucune idée comment y arriver.

JL

alors pour ta premiere question tu mets dans le module thisworkbook

Private Sub Workbook_Open()
    For Each sh In ThisWorkbook.Worksheets
        If sh.Name <> "Accueil" Then
            sh.Visible = False
        End If
    Next sh
End Sub

Puis au bouton francais tu lui affectes:

Sub francais()
    Sheets("F-Test1").Visible = True
    Sheets("F-Test2").Visible = True
    Sheets("F-Test1-BD").Visible = True
End Sub

Pour ta deuxieme question il te suffit d'enlever les select inutiles...

 ActiveWorkbook.Worksheets("F-Test1-BD").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("F-Test1-BD").Sort.SortFields.Add Key:=Range( _
        "A2:A9"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("F-Test1-BD").Sort
        .SetRange Range("A1:A9")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

suffit

Merci beaucoup, vraiment apprécié la vitesse de réponse!

Je vais tester tout ça,

Cordialement,

JL

Merci ça fonctionne vraiment bien!

C'est génial!

JL