Private Sub UserForm_Initialize()
Dim Plage As Range, R As Range
With Sheets("Feuil1")
Set Plage = .Range("A2:A" & .Range("A65536").End(xlUp).Row)
End With
For Each R In Plage
If R.Interior.ColorIndex = xlColorIndexNone Then ComboBox1.AddItem R
Next
End Sub