Entete pied de page par worksheet_change

Bonjour,

Je suis confronté à un petit problème que je vous soumets.

Je voudrais mettre en place des entêtes et pieds de page à partir d'une feuille et que ces derniers se mettent à jour à chaque modification. Mon code ci-dessous ne fonctionne pas. Merci de me corriger mes erreurs.

Option Explicit
'code dans la feuille Paramètres
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Union(Range("N6:N7"), Range("N9:N13"), Range("N16:N17"), Range("N19"))) Is Nothing Then
Call Entete_PiedDePage
End If
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'code dans module standard
Sub Entete_PiedDePage()
    Dim Sh As Worksheet, F As Worksheet

    Set Sh = Worksheets("Paramètres")
    Application.ScreenUpdating = False

    For Each F In ThisWorkbook.Worksheets
        If F.Name <> "Menu" And F.Name <> "Paramètres" Then

            With F.PageSetup
                'en-tête de page
                .LeftHeader = Sh.Range("N6").Value & " " & Sh.Range("N7").Value & "  -  " & Sh.Range("N9").Value & " " & _
                              Sh.Range("N10").Value & " " & Sh.Range("N11").Value & " - " & Sh.Range("N12").Value & " " & _
                              Sh.Range("N13").Value
                .RightHeader = Sh.Range("M19").Value & " " & Sh.Range("N19").Value
                'pied de page
                .LeftFooter = Sh.Range("M15").Value & " du " & Sh.Range("N16").Value & " au " & Sh.Range("N17").Value
                .RightFooter = "Page &P de &N"    '*1
            End With
        End If
    Next F
End Sub

edit: j'ai trouvé mes erreurs, code corrigé-fichier mis à jour. Merci d'avoir consulté. Bon week-end.