Private Sub UserForm_Initialize()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
If WS.Visible = True Then
If WS.Name <> 'page d'accueil' Then
Me.ComboBox1.AddItem WS.Name
End If
End If
Next
End Sub