Option Explicit
Dim WithEvents CL As ComboBoxLiés
Private Sub UserForm_Initialize()
Set CL = New ComboBoxLiés
CL.CorrespRequise = True
CL.Plage Feuil3.Rows(3)
CL.Add Me.ComboBox1, "F"
CL.Add Me.ComboBox2, "E"
CL.Add Me.ComboBox3, "N"
CL.Add Me.ComboBox4, "G"
CL.Add Me.ComboBox5, "J"
CL.Add Me.ComboBox6, "M"
CL.Add Me.ComboBox7, "H"
CL.Add Me.ComboBox8, "K"
CL.Actualiser
End Sub