Bonjour le Forum

je viens solliciter vos lumières concernant un code que j'ai mis pour naviguer en quelque sorte entre plusieurs vues en utilisant CustomViews affichage personnalisé le code en question fonctionne seulement il est lourd avec des flash d’écran et parfois je Click 2 fois sur le bouton pour que j'arrive a l’exécuter donc je vous demande s'il y a moyen de parfaire.

voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub MnAdmin()
On Error Resume Next
'Feuil1.Protect Contents:=False, UserInterfaceOnly:=False, DrawingObjects:=True
 Application.ScreenUpdating = False
 Application.Calculation = xlCalculationManual
 ActiveWorkbook.CustomViews("Mn1").Show
 Sheets(1).ScrollArea = "A1:T34"
 'Feuil1.ScrollArea = "A1:T34"
 Application.ScreenUpdating = True
 Application.Calculation = xlCalculationAutomatic
 MsfORM
'Feuil1.Protect Contents:=True, UserInterfaceOnly:=True, DrawingObjects:=True
End Sub
Merci et bonne journée