Private Sub UserForm_Initialize()
Dim Ws As Worksheet
Call MarqueDocumentsListbox
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
For Each Ws In Worksheets
If Ws.Name = "ACCUEIL" Or Ws.Name = "RecapQuart" Or Ws.Name = "Liste élec" Or Ws.Name = "Base" _
Or Ws.Name = "AT Modèle" Then Ws.Visible = xlSheetHidden
Next Ws
LbClasseurs.Value = ActiveWorkbook.Name
With Application
.EnableEvents = True
.ScreenUpdating= True
End With
Sheets("Accueil").activate
End Sub