Private Sub Workbook_Open()
On Error Resume Next
For Each Control1 In Application.CommandBars('Jeux Unss').Controls
If Not (Control1.OnAction = '') Then
Control1.OnAction = Right(Control1.OnAction, Len(Control1.OnAction) - _
InStrRev(Control1.OnAction, '!'))
End If
For Each Control2 In Control1.Controls
If Not (Control2.OnAction = '') Then
Control2.OnAction = Right(Control2.OnAction, Len(Control2.OnAction) - _
InStrRev(Control2.OnAction, '!'))
End If
For Each Control3 In Control2.Controls
If Not (Control3.OnAction = '') Then
Control3.OnAction = Right(Control3.OnAction, Len(Control3.OnAction) - _
InStrRev(Control3.OnAction, '!'))
End If
Next Control3
Next Control2
Next Control1
On Error GoTo 0
End Sub