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:
Sub En_tete()
Sheets(1).Activate
Application.ActiveWindow.DisplayHeadings = True
For i = 2 To Sheets.Count
Sheets(i).Activate
Application.ActiveWindow.DisplayHeadings = False
Next
Sheets(1).Activate
End Sub
On peut aussi effacer les en-têtes si ça doit être durable :
Code:
Sub Entete()
Dim s As Object
For Each s In Sheets
If s.Name <> "Accueil" Then
With s.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
End With
End If
Next
End Sub