Sub AttenteClick()
Dim ac$, NOM$, lechemin$
Do
DoEvents
ac = Menu.ActiveControl.Name
If ac = "Créer_Tournante" Then
lechemin = ActiveWorkbook.Path & "\"
NOM = "Pointage Congés " & Sheets(1).[B5]
Application.DisplayAlerts = False
On Error Resume Next
Workbooks(NOM).Close False 'si le fichier est ouvert
Menu.Controls.Remove "Créer_Tournante"
Menu.Controls.Remove "Bonjour"
Menu.Controls.Remove "Philippe"
ThisWorkbook.Names.Add "PasDeBouton", 1, Visible:=False 'nom défini masqué
ThisWorkbook.SaveAs lechemin & NOM
Exit Sub
ElseIf ac = "Bonjour" Or ac = "Philippe" Then
MsgBox ac
Menu.Accueil.SetFocus 'met le focus ailleurs
End If
Loop
End Sub