Private Sub CdeValider_Click()
Dim Cel As Range
With Sheets("Feuil2")
For Each Cel In .Range("A2:A" & .Cells(Rows.Count, "A").End(xlUp).Row)
If Cel = Me.ListBox1 Then Me.ListBox2.AddItem Cel.Offset(0, 1)
Next Cel
End With
End Sub
Private Sub UserForm_Initialize()
Dim Cel As Range
With Sheets("Feuil2")
For Each Cel In .Range("A2:A" & .Cells(Rows.Count, "A").End(xlUp).Row)
ListBox1.AddItem Cel
Next Cel
End With
End Sub
Private Sub CdeQuitter_Click()
Unload Me
End Sub