Sub entete()
With ActiveSheet.PageSetup
'Pour l'entête gauche
.LeftHeader = InputBox("Texte de l'entête de gauche")
'pour l'entête centrale
.CenterHeader = InputBox("Texte de l'entête central")
'pour l'entête droite
.RightHeader = InputBox("Texte de l'entête de droite")
End With
End Sub