re,
voici 2 possibilités,
Sub MonEnTete1()
sm = Format(Application.Sum(Range("E3:E55")), "0.00")
dt = "PLANNING " & DateSerial(Year(Date), Month(Date), Day(Date) + 1) & " "
ActiveSheet.PageSetup.LeftHeader = dt & "[" & sm & "]"
End Sub
ou
Sub MonEnTete2()
sm = Format(Application.Sum(Range("E3:E55")), "0.00")
dt = "PLANNING " & DateSerial(Year(Date), Month(Date), Day(Date) + 1) & " "
ActiveSheet.PageSetup.LeftHeader = dt
ActiveSheet.PageSetup.CenterHeader = sm
End Sub