XL 2016 Ajouter un element composé

Bonjour,
J'ai une liste de lames sur une feuille Excel, le nom de la lame a le format suivant: Constructeur.Modele.N°.Mois.Annee.Stock
Pour ajouter une lame a ma liste on clique sur le bouton Ajout lame dans mon userform Menu, on a unserform avec des comboboxes, on choisit les éléments après on valide pour avoir le nom complet de la lame et qui se rajoute dans la feuille liste_lameM1
Le choix de chaque valeur se fait a partir de comboxes :
Constructeur==> ComboBox_Const
Modele==> ComboBox_Modele
N°==>ComboBox_Num
Mois==>TextBox_Mois
Annee==> TextBox_Annee
Stock==> ComboBox_Stock_Cmnd

j'ai rédigé ce code mais ca marche pas, que dois je modifier merci


Private Sub CommandButton1_Click()
Dim ws_liste_M1 As Worksheet
Dim fin_liste_M1 As Integer
Set ws_liste_M1 = ActiveWorkbook.Worksheets("Liste_Lame_M1")
fin_liste_M1 = ws_liste_M1.Range("A65533").End(xlUp).Row
I Me.ComboBox_Modele.Value = "M1" Then
ws_liste_M1.Activate
ws_liste_M1.Cells(fin_liste_M1 + 1, 1) = Me.ComboBox_Const.Value & "-" & Me.ComboBox_Modele.Value & "-" & Me.ComboBox_Num.Value & "-" & Me.TextBox_Mois.Value & "-" & Me.TextBox_Annee.Value & "-" & Me.ComboBox_Stock_Cmnd.Value
End If
Unload Me
End Sub