Private Sub UserForm_Initialize()
Dim I As Integer
'la feuille où sont stockées et récupérées
'les valeurs est cachée à l'utilisateur
With Worksheets("Cachée")
For I = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
ComboBox1.AddItem .Cells(I, 1)
Next I
End With
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim I As Integer
'vide la feuille
Worksheets("Cachée").Cells.Clear
'stocke les valeurs
For I = 0 To ComboBox1.ListCount - 1
Worksheets("Cachée").Cells(I + 1, 1) = ComboBox1.List(I)
Next I
'sauvegarde le classeur
ThisWorkbook.Save
End Sub