Ouverture un peu lente onglets

Bonjour le forum

Quelqu'un du forum avait fait cette macro pour affichez masquer onglets j'ai adapté à un fichier.

Pour afficher ça fonctionne bien sauf qu'on voit tous les onglets mais très très rapide

Par contre à la fermeture c'est instantané.

Peut-on faire mieux?

PS: je ne peux pas fournir de fichier même "purgé" car trop de boulot

Je m'en excuse pas avance

Private Sub Workbook_Open()
MasqueSauf "Charges " & Year(Date)    'nom adaptable
End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$A$2" Then Exit Sub
Cancel = True
For Each Sh In Sheets
    If Sh.Visible <> xlSheetVisible Then Affiche: Exit Sub
Next
MasqueSauf "Charges " & Year(Date) 'nom adaptable
Range("A1").Select
End Sub

Sub MasqueSauf(nom$)
Dim Sh As Object
On Error Resume Next
If IsError(Sheets(nom)) Then MsgBox "Créez la feuille '" & nom & "' !", 48: Affiche: Exit Sub
For Each Sh In Sheets
    If Sh.Name <> nom Then Sh.Visible = xlSheetHidden
Next
End Sub

Sub Affiche()
Dim Sh As Object
For Each Sh In Sheets
    Sh.Visible = xlSheetVisible
Next
End Sub

Bonjour,

Essaie en ajoutant application.screenupdating=false

Sub Affiche()
Dim Sh As Object
application.screenupdating=false
For Each Sh In Sheets
    Sh.Visible = xlSheetVisible
Next
application.screenupdating=true
End Sub

Cdt

Bonjour ddetp88

Eh! oui quel C$N!!!

Je devrais le savoir c'est impardonnable!!!

Merci à toi bon dimanche

Cordialement

Ca arrive à tous!

Bon dimanche à toi aussi