Option Explicit
Private WithEvents CL As ComboBoxLiées
Private Sub UserForm_Initialize()
Set CL = New ComboBoxLiées
CL.Plage Feuil14.Cells(2, "A")
CL.Add ComboBox1, "A"
CL.Add ComboBox2, "B"
CL.Add ComboBox3, "C"
CL.Actualiser
End Sub
Private Sub CBnEffacer_Click()
CL.Nettoyer
End Sub