Sub Masque()
nomact = ThisWorkbook.Name
'MasqueVal = MasqueVal + 1:
ThisWorkbook.Names.Add Name:="MAsqueVAl", RefersTo:="=0"
' ThisWorkbook.Names("MasqueVal")
If Windows(nomact).Visible = True Then Windows(nomact).Visible = False
Set Btn1 = Application.CommandBars("MJ Utilitaire 2009").Controls(1)
With Btn1
.Caption = "Affiche"
'.Text = "Masque"
.Style = msoButtonIconAndCaption
'.FaceId = 39
.OnAction = "Affiche"
End With
lance_Raccourci2
End Sub