Private Sub UserForm_Initialize()
Dim i%
ComboBox1.Clear
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Template" And Sheets(i).Name <> "Récapitulatif" Then ComboBox1.AddItem Sheets(i).Name
Next i
End Sub
Private Sub ComboBox1_Change()
Dim i%
Dim Collec As Collection
Dim cel As Range
Set Collec = New Collection
ComboBox2.Clear
With Sheets(ComboBox1.Value)
For Each cel In .Range("E5:E" & .Range("E65536").End(xlUp).Row)
On Error Resume Next
Collec.Add cel.Value, CStr(cel.Value)
Next cel
For i = 1 To Collec.Count
ComboBox2.AddItem Collec(i)
Next i
End With
End Sub