Private Sub UserForm_Initialize()
Set CL = New ComboBoxLiées
CL.Plage Feuil1.Rows(2)
CL.Add Me.CBxCode, "A"
CL.Add Me.CBxDesi, "B"
CL.Add Me.CBxLibe, "C"
CL.Add Me.CBxGrart, "D"
CL.Add Me.CBxGrpro, "E"
CL.Add Me.CBxCont
CL.CorrespRequise = True
CL.Actualiser
End Sub
Private Sub CL_SujBdDPersoSVP(ByVal CBM As ComboBoxMmbr)
CBM.SujetBdD = SujetMotsClés(CL.PlgTablo.Columns("C"))
End Sub