UserForm Concaténation avec condition qui ne fonctionne pas

Private Sub TextBox1_Change()
If ComboBox1 <> "" Then
' La condition est s'il y a une marque, la TextBox5 (Marque en TextBox4) prend l'avantage sur la TextBox2 (Code fournisseur)
    If TextBox4 = "" Then
       TextBox1.Text = TextBox2.Text & "-" & TextBox7.Text & TextBox8.Text
        Else
        TextBox1.Text = TextBox5.Text & "-" & TextBox7.Text & TextBox8.Text
    End If
End If
End Sub

Private Sub CommandButton1_Click() 'Bouton Enregistrements
    Dim col As Integer, derlig As Integer, x As Integer
    Dim ctrl As Control, cel As Range, i As Long
    Dim cde
    
'    If ComboBox1 = "" Then
'        MsgBox "Vous devez saisir un Code Produit.", 16
'        Exit Sub
'    End If
    
    Set cde = Sheets("Produits").Range("A:A").Find(ComboBox1, lookat:=xlWhole)
    If Not cde Is Nothing Then
        MsgBox cde & " existe déjà." & Chr(13) & " Si vous voulez enregistrer des modifications, cliquer sur ''Modifier''", 16
        Exit Sub
    End If
    With Sheets("Produits")
        derlig = .Range("A16").End(xlDown).Row + 1
        
        For Each ctrl In Me.Controls
            col = Val(ctrl.Tag)
            If col > 0 Then
                If Not IsNumeric(ctrl) Then
                    .Cells(derlig, col) = ctrl
                Else
                    .Cells(derlig, col) = CDbl(ctrl)   'format numérique simple ex: 3124
                End If
            End If
        Next ctrl
        '.Range("G16:H65000").NumberFormat = "000 000 00 00"   'Numéro téléphone et fax
        .Range("B:u").Columns.AutoFit
        .Range("A16:Z65000").Sort [A2], xlAscending
 '   End With
    
 '   With Sheets("Produits")
        ComboBox1.Clear
        For x = 2 To .Range("A16").End(xlDown).Row
                ComboBox1 = .Range("a" & x)
                'filtre les doublons
               If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem .Range("a" & x)
        Next x
        ComboBox1.Text = ""
    End With
    
    For i = 1 To 9
    Me.Controls("TextBox" & i).Text = ""
    Next
    TextBox2.SetFocus
End Sub

Private Sub CommandButton3_Click() 'Bouton Modification

Dim cel As Range, i As Long
'pour modifier, il faut avoir quelque chose à modifier en Recherche
ChangeEvent = False
If ComboBox1 = "" Then
    MsgBox "Vous devez saisir un Code Produit.", 16
    Exit Sub
Else
    With Range("TabProduits[Code Produit]")
        Set cel = .Find(ComboBox1, , xlValues, xlWhole)
        If Not cel Is Nothing Then
            PosProduit = cel.Row