Générer un nom de codification simple en VBA

Option Explicit

Dim stCodeMarker As String
Dim C1, C2, C3 As String

Private Sub ReinitAll()
    stCodeMarker = "-- code : "
    ComboBox1.Clear
    With Feuil1.ComboBox1
        .AddItem "marque2 -- code : 002"
        .AddItem "marque3 -- code : 003"
        .AddItem "marque4 -- code : 004"
    End With
    ComboBox1.Value = ""
    C1 = ""
    ComboBox1.Visible = True
    
    ComboBox2.Clear
    With Feuil1.ComboBox2
        .AddItem "modele12 -- code : 012"
        .AddItem "modele13 -- code : 013"
        .AddItem "modele14 -- code : 014"
    End With
    ComboBox2.Value = ""
    C2 = ""
    ComboBox2.Visible = False
    
    ComboBox3.Clear
    With Feuil1.ComboBox3
        .AddItem "mot -- code : MOT"
        .AddItem "cap -- code : CAP"
        .AddItem "top -- code : TOP"
    End With
    ComboBox3.Value = ""
    C3 = ""
    ComboBox3.Visible = False
    Range("C14").Value = "[choisir la marque]"
End Sub

Private Sub Workbook_Open()
    ReinitAll
End Sub

Private Function GetCode(ByVal st As String)
    Dim posCode As Integer
    
    posCode = InStr(st, stCodeMarker)
    GetCode = Mid(st, posCode + Len(stCodeMarker))
End Function

Private Sub ComboBox1_Change()
    If ComboBox1.Value <> "" Then
        C1 = GetCode(ComboBox1.Value)
        ComboBox1.Visible = False
        ComboBox2.Visible = True
        Range("C14").Value = "[choisir le modèle]"
    Else
        C1 = ""
    End If
End Sub

Private Sub ComboBox2_Change()
    If ComboBox2.Value <> "" Then
        C2 = GetCode(ComboBox2.Value)
        ComboBox2.Visible = False
        ComboBox3.Visible = True
        Range("C14").Value = "[choisir le mot]"
    Else
        C2 = ""
    End If
End Sub

Private Sub ComboBox3_Change()
    If ComboBox3.Value <> "" Then
        C3 = GetCode(ComboBox3.Value)
        ComboBox3.Visible = False
        Range("C14").Value = C1 + "-" + C2 + "-" + C3
    Else
        C2 = ""
    End If
End Sub

• 3 ComboBox sont définies
• elles sont initialisées avec le contenu textuel et le code, seule la 1ère est affichée et la rubrique "Codification" demande à ce que la marque soit choisie
• lorsque la marque est choisie le code est extrait, la 1ère est masquée, la 2ème rendue visible et la rubrique "Codification" demande à ce que le modèle soit choisi
• lorsque le modèle est choisi le code est extrait, la 2ème est masquée, la 3ème rendue visible et la rubrique "Codification" demande à ce que le "mot" soit choisi
• lorsque le "mot" est choisi le code est extrait, la 3ème est masquée (toutes les ComboxBox sont alors masquées) et la rubrique "Codification" comporte la concaténation des codes correspondants aux 3 choix effectués