Masquer Feuille VBA Gauche

Bonjour,

J'aimerai masquer les feuilles se trouvant uniquement à gauche de ma feuille active.

Uniquement en VBA.

Merci

Bonjour,

Une proposition :

Sub MasquerOnglets()

Dim i As Byte
For i = 1 To Sheets.Count
    If Sheets(i).Name = ActiveSheet.Name Then Exit For
    Sheets(i).Visible = False
Next i

End Sub

Super !

Tjr le meilleur Pedro22

Bonjour, Salut Pedro !

ou bien :

Sub Test()
    Dim i%
    For i = 1 To ActiveSheet.Index - 1
        Worksheets(i).Visible = xlSheetHidden
    Next i
End Sub

Cordialement.