Option Explicit
Dim CLCPVil As ComboBoxLiés
Dim CL As ComboBoxLiés
Dim LCou As Long, VLgn() As Variant '
Private Sub CommandButton1_Click()
Dim i As Integer
With Sheets("feuil1")
i = .Range("B65536").End(xlUp).Row
.Range("A" & i + 1).Value = ComboBox1.Value
.Range("B" & i + 1).Value = ComboBox2.Value
End With
End Sub
Private Sub CommandButton6_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Set CLCPVil = New ComboBoxLiés
CLCPVil.Plage Feuil2.[A2]
CLCPVil.Add Me.ComboBox1, "B"
CLCPVil.Add Me.ComboBox2, "C"
CLCPVil.Actualiser
Set CL = New ComboBoxLiés
CL.Plage Feuil4.[B2]
CL.Add Me.ComboBox4, "D"
CL.Add Me.ComboBox5, "E"
CL.Actualiser
End Sub