Bonjour et bonne année à tous.

Je tiens à souligner que je suis novice dans la programmation en VBA. Voici mon problème :
J'ai créé un userform permettant de remplir un tableau dans une autre feuille. Cependant je souhaiterais attribuer automatiquement un nom à certaines cellules à partir de TextBox
ceci est mon userform:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub CommandButton1_valider_Click()
    If IsNumeric(TextBox1.Value) Or IsNumeric(TextBox2.Value) Or IsNumeric(TextBox5.Value) = False Then
    MsgBox "Valeur incorrecte"
    Else
    Dim lig As Long
    lig = Sheets("Clients").Range("A1").End(xlDown).Row + 1
    Sheets("Clients").Range("A" & lig) = TextBox1.Value + " " + TextBox2.Value
    Sheets("commande").Range("A3") = TextBox1.Value + " " + TextBox2.Value
    lig = Sheets("Clients").Range("B1").End(xlDown).Row + 1
    Sheets("Clients").Range("B" & lig) = TextBox3.Value
    lig = Sheets("Clients").Range("C1").End(xlDown).Row + 1
    Sheets("Clients").Range("C" & lig) = TextBox4.Value
    lig = Sheets("Clients").Range("D1").End(xlDown).Row + 1
    Sheets("Clients").Range("D" & lig) = TextBox5.Value
    Sheets("Clients").Activate
    Range("D4").End(xlDown).Select
    ActiveWorkbook.Names.Add Name:=TextBox1.Value + " " + TextBox2.Value
    Unload NC
    Sheets("commande").Activate
    End If
End Sub
La partie qui bloque est celle ci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
    Sheets("Clients").Activate
    Range("D4").End(xlDown).Select
    ActiveWorkbook.Names.Add Name:=TextBox1.Value + " " + TextBox2.Value
    Unload NC
il en ressort l'erreur : "Erreur définie par l'application ou par l'objet"

Et donc je m'en remet à vous pour tenter de résoudre ce problème (si possible avec des explications).

Merci d'avance.