En-tête excel macro

Sub Entete()
'
    Sheets.Add After:=Sheets(Sheets.Count)
    activesheet.name = "Base"
    Sheets("Feuil1").Select
    Range("A1:A5").Select
    Selection.Copy
    Sheets("Base").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub

Sub Macro1()
Dim ET As String

With Sheets("Feuil1")
    ET = .Range("A1").Value & Chr(10) & .Range("A2").Value & Chr(10) & .Range("A3").Value & Chr(10) & .Range("A4").Value & Chr(10) & .Range("A5").Value
    Application.PrintCommunication = False
    With .PageSetup
        .CenterHeader = ET
    End With
    Application.PrintCommunication = True
End With
End Sub