'Mise en forme des boutons
On Error Resume Next 's'il n'y a pas de bouton
For Each w In Worksheets
With w.OLEObjects(1).Object
.Caption = IIf(test, "Plein Écran", "Vue Normale")
.ForeColor = IIf(test, &H95FC7, &H3C9275)
.BackColor = IIf(test, &HEFEBFF, &HE5F7D5)
End With
Next