Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
With Sheets("Accueil") ''prend en compte l'onglet "Accueil"
'alimente dynamiquement la combobox "CBX_Categorie"
Me.CBX_Categorie.List = .Range("B2:B" & .Cells(Application.Rows.Count, 2).End(xlUp).Row).Value
End With 'fin de la prise en compte de l'onglet "Accueil"
End Sub