Notre ami veut inscrire en entête de page ; le code ressemble donc à ça :
Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("Feuil1")
If Range("B1").Value = 1 Then
.PageSetup.CenterHeader = "FRFRFR"
Else
.PageSetup.CenterHeader = "NLNLNL"
End If
End With
End Sub