Private Sub UserForm_Initialize()
Dim DerLig As Integer, I As Integer, Liste As New Collection, VGroup As String
With Sheets("global")
DerLig = .Range("A65536").End(xlUp).Row
For I = 1 To DerLig
VGroup = .Range("A" & I).Value
On Error Resume Next
Liste.Add VGroup, VGroup
On Error GoTo 0
Next
End With
For I = 1 To Liste.Count
Me.ComboBox1.AddItem Liste(I)
Next I
End Sub