Sub Entete()
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = [C9] 'Cellule C9
.RightHeader = ""
End With
End Sub
Sub PiedDePage()
With ActiveSheet.PageSetup
.LeftFooter = ""
.CenterFooter = [C10] 'Cellule C10
.RightFooter = ""
End With
End Sub
Sub PiedDePage()
With ActiveSheet.PageSetup
.LeftHeader = Int(Range("A1"))
.CenterHeader = Format(Range("A2"), "# ##0")
End With
End Sub
Sub Entete()
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = [C9] 'Cellule C9
.RightHeader = ""
End With
End Sub
Sub PiedDePage()
With ActiveSheet.PageSetup
.LeftFooter = ""
.CenterFooter = [C10] 'Cellule C10
.RightFooter = ""
End With
End Sub