Private Sub UserForm_Initialize()
Dim hwnd As Long, Style As Long
Dim Ws As Worksheet
For Each Ws In Worksheets
[COLOR="Red"] If Ws.Name <> "1Base" Or Ws.Name <> "1REFERENCES" Or Ws.Name [/COLOR]<> "1MODELE" Then
FrmImprime.LbFeuilles.AddItem Ws.Name
[COLOR="red"] End If[/COLOR]
Next Ws
Call maiqueDocumentsListbox
Application.EnableEvents = False
LbClasseurs.Value = ActiveWorkbook.Name
Application.EnableEvents = True
End Sub