Dim CB() As New Classe1
Private Sub Workbook_Open()
Dim i%, temp()
For i = 1 To Sheets.Count
ReDim Preserve temp(1 To i)
temp(i) = Sheets(i).Name
Next
For i = 1 To Sheets.Count
Sheets(i).ChoixOnglet.List = temp
ReDim Preserve CB(i)
Set CB(i).CB = Sheets(i).ChoixOnglet
Next
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.[A1].Select
End Sub