Private Sub Worksheet_Change(ByVal Target As Range)
[COLOR=Red]If Not Application.Intersect(Target, Cells(12, 2)) Is Nothing Then
ActiveSheet.PageSetup.LeftFooter = Cells(12, 2).Value
End If[/COLOR]
If Not Application.Intersect(Target, Range("A48:A2500")) Is Nothing Then
...Suite du code...