verification de code

Efgé à dit:

Bonjour zaid
Une proposition: en groupant les feuilles, on peux toutes les mettre à jour en même temps.
Le code avec mes commentaires:

VB:

Sub EntetePiedPage_2()
Dim Ws As Worksheet
Dim T As Variant
'Si tu ne mets pas la désactivation avant la boucle,
'Tu vas activer/désactiver à chaque passage
Application.ScreenUpdating = False
For Each Ws In Worksheets
    'On crée un tableau pour regrouper les feuilles
    If Ws.Name < > "Feuil5" Then
        If Not IsArray(T) Then
            T = Array(Ws.Name)
        Else
            ReDim Preserve T(UBound(T) + 1)
            T(UBound(T)) = Ws.Name
        End If
    End If
Next Ws
'On selectionne toutes les feuilles (groupement)
Sheets(T).Select
'C'est sur le groupe que l'on modifie les PageSetup
With ActiveSheet.PageSetup
    .LeftHeader = Sheets("Paramètres").Range("E1").Value & Chr(13) & Sheets("Paramètres").Range("E2").Value & Chr(13) & Sheets("Paramètres").Range("E3").Value
    .RightHeader = Sheets("Paramètres").Range("E6").Value & Chr(13) & Sheets("Paramètres").Range("E7").Value & Chr(13) & Sheets("Paramètres").Range("E8").Value
End With
'On selectionne la feuille active pour dégrouper les feuilles
ActiveSheet.Select
Application.ScreenUpdating = True
End Sub

Cordialement

Cliquez pour agrandir...