précédant les Range a incrémenter.With Sheets ("feuilXX")
Private Sub ComboBox1_Change()
worksheets(ComboBox1.Text).select
end Sub
Private Sub Userform_Initialize()
dim sht As Worksheet
for each sht In activeworkbook.worksheets
ComboBox1.addItem sht.name
next sht
end Sub
With Sheets ("feuilXX")
With ActiveSheet