Combobox

Bonjour,

Avant l'enregistrement d'un fichier traiter par ma macro, j'utilise un userfrom ("fversion") pour avoir une fenêtre avec : le message "choisissez la version de votre fichier" et une liste déroulante ["a", "b", "c"...].

J'ai un ComboBox1 :

Private Sub ComboBox1_Change()

ComboBox1.AddItem ""
ComboBox1.AddItem "A"
ComboBox1.AddItem "B"
ComboBox1.AddItem "C"
ComboBox1.AddItem "D"
ComboBox1.AddItem "E"
ComboBox1.AddItem "F"
ComboBox1.ListIndex = 0
ComboBox1.ListName = "listelettre"
End Sub

Un userfrom :

Private Sub fversion_Initialize()
ComboBox1.Clear
ComboBox1.List = Range("listelettre").Value
End Sub


et dans ma macro :
le code de traitement et ....

'Enregistrement'

With objSaveBox

'Fenetre choix de version
Call fversion_Click

'Enregistrement avec le bon nom
lettre = fversion.ComboBox1.Value
ActiveWorkbook.SaveAs Filename:=Format(Date, "yyyymmdd") & lettre & " - 2 - Injection habilitations SCALER" & ".txt", FileFormat:=xlTextWindows, Local:=True
'On stock l'adresse du fichier
adresseFichierInjection = ActiveWorkbook.FullName
End With
'Wb.Close
Workbooks(Format(Date, "yyyymmdd") & lettre & " - 2 - Injection habilitations SCALER" & ".txt").Close SaveChanges:=False
Next
Application.ScreenUpdating = True

Private Sub fversion_Click():
fversion.Show
End Sub


Ma fenêtre s'affiche mais la liste déroulante est vide. Une idée ?
Merci