Option Explicit
Private CL As ComboBoxLiées
Private Sub UserForm_Initialize()
Set CL = CBxL.Création.ComboBoxLiées
CL.Plage Feuil2.[F2:I2], True
CL.Add ComboBox1, 1, "mmmm"
CL.Add ComboBox2, 2, "dd"
CL.Add ComboBox3, 3
CL.Add ComboBox4, 4
CL.Actualiser
End Sub