lien entre pieds de page et cellule

Sub Macro1()
Dim Rng As Range
Set Rng = Range("B2")
Application.PrintCommunication = False
ActiveSheet.PageSetup.CenterFooter = Rng.Value
Application.PrintCommunication = True
End Sub

rivate Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Dim Rng1 As Range
Set Rng = Range("K4")
Set Rng1 = Range("M2")

Application.PrintCommunication = False
ActiveSheet.PageSetup.CenterFooter = Rng.Value
ActiveSheet.PageSetup.LeftFooter = Rng1.Value
Application.PrintCommunication = True


End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.PageSetup.CenterFooter = [K4]
ActiveSheet.PageSetup.LeftFooter = [M2]
End Sub