Private Sub UserForm_Initialize()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
If ws.CodeName <> "Feuil1" Then
ListePage.AddItem ws.Name
End If
Next
Set f = ActiveWorkbook.ActiveSheet
Set RngBD = f.Range("A5:P5" & f.[A65000].End(xlUp).Row)
If f.CodeName <> "Feuil1" Then
RngBD.Sort key1:=Application.Index(RngBD, 1, 1)
End If
Private Sub ListePage_Click()
Dim nomde As String
nomde = ListePage.Text
Set f = ActiveWorkbook.Worksheets(nomde)
f.Select
UserForm_Initialize
End Sub