Private Sub UserForm_Initialize() 'Chargement de la liste au lancement de l'UserForm
Dim i
For i = 2 To Sheets("BdD Acteurs").Range("B1").End(xlDown).Row 'Liste des Noms
CBox_Noms.AddItem Sheets("BdD Acteurs").Cells(i, 2)
Next
CBox_Noms.ListIndex = ActiveCell.Row - 2
End Sub