Private Sub UserForm_Initialize()
Dim c As Range
For Each c In Range('g8:g' & Range('g65536').End(xlUp).Row)
If c <> '' Then
ComboBox_selection.AddItem c
End If
Next c
End Sub
Private Sub ComboBox1_GotFocus()
Dim c As Range
ComboBox1.Clear
With Sheets('feuil2')
For Each c In .Range('g8:g' & .Range('g65536').End(xlUp).Row)
If c <> '' Then
ComboBox1.AddItem c
End If
Next c
End With
End Sub