' ouverture onglet avec combobox2
Private Sub ComboBox2_Change()
x = ComboBox2
Sheets(x).Activate
Me.ComboBox1.Clear
Me.ListBox2.Clear
ligne = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
For i = 5 To ligne
Me.ListBox2.AddItem ActiveSheet.Range("B" & i).Value
Me.ComboBox1.AddItem ActiveSheet.Range("B" & i).Value
Next i
End Sub