combobox VBA ComboBox1.RemoveItem

Bonjour,
J'ai un userform avec une combobox qui comprend une liste (les 12 mois)
Je sélectionne dans la liste un mois et je lance une macro par un bouton et je souhaiterais enlever de la liste le mois selectionné.
J'ai essayé ceci :

Option Explicit
Dim mois As String

Private Sub CommandButton1_Click()
mois = ComboBox1.Value

ComboBox1.RemoveItem mois



End Sub

Private Sub UserForm_Initialize()
Sheets("Feuil1").Select
Range("a1").Select
Do Until ActiveCell.Value = 0
mois = ActiveCell.Value
ComboBox1.AddItem mois

ActiveCell.Offset(1, 0).Select

Loop
End Sub

Merci pour tout aide

PS : l'exemple est dans le fichier joint