Option Explicit
Private WithEvents CL As ComboBoxLiées, CA As ControlsAssociés, LCou As Long, TVL()
Private Sub UserForm_Initialize()
Set CL = CLsCAs.ComboBoxLiées: CL.plage Sheets("Base de données2")
Set CA = CLsCAs.ControlsAssociés: Set CA.Colonnes = CL.Colonnes
CL.Add CBxCivil, "Civilité"
CL.Add CBxNom, "Nom"