Private Sub UserForm_Initialize()
Dim i As Integer
i = 1
Do While Worksheets("Actions").Cells(i, 1) <> ""
CbxAction.AddItem Worksheets("Actions").Cells(i, 1)
i = i + 1
Loop
i = 1
Do While Worksheets("Actions").Cells(i, 2) <> ""
CbxBidon.AddItem Worksheets("Actions").Cells(i, 2)
i = i + 1
Loop
End Sub