Supprimer entêtes feuilles

Bonjour,

Je suis à la recherche d'un code pour supprimer toutes les entêtes de toutes les feuilles du classeurs sauf la première feuille nommer "Accueil" j'ai mis comme code:

Application.ActiveWindow.DisplayHeadings = False

Mais sa me supprimer que la première feuille

Merci d'avance

Max

Bonjour,

Sub Test()
Dim Ws As Worksheet
    For Each Ws In Worksheets
        If Ws.Name <> "Accueil" Then
            Ws.Activate
            ActiveWindow.DisplayHeadings = False
        Else
            ActiveWindow.DisplayHeadings = True
        End If
    Next Ws
End Sub

A+

Bonjour Frangy

Je te remercie et te souhaite une bonne journée

Max