Option Explicit
Dim WithEvents CBL 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 CBL = New ComboBoxLiés
CBL.Plage Feuil2.[A2]
CBL.Add Me.ComboBox1, "B"
CBL.Add Me.ComboBox2, "C"
CBL.Actualiser
Set CBL = New ComboBoxLiés
CBL.Plage Feuil4.[B2]
CBL.Add Me.ComboBox4, "D"
CBL.Add Me.ComboBox5, "E"
CBL.Actualiser
End Sub
'