VBA erreur macro ajout ligne dans tableau

[oceyann1]

Bonjour,

je travaille sur la création d’une gestion de stock.
Gestion-de-stock-consommables-informatiques.xlsm (88,4 Ko)
A partir de ma feuille « BASE PRODUITS » je clique sur le bouton « Création nouvel Article ».
Avec les « + », je peux rajouter des valeurs dans les champs de la feuille « TABLES » :
Catégorie
Emplacement de stockage
Conditionnement
etc…
tant que je rajoute sans quitter le userform c’est OK.
Par contre si je crée une catégorie…que je ferme le userform…que je le rouvre pour créer une catégorie supplémentaire…ça bug erreur VB

Quelqu’un pourrait me dire quelle est mon erreur svp ? qui d’ailleurs se reproduit également sur les autres userform d’ajout.

MERCI+++

[oceyann1]

je rajoute ma macro complète :

If TextBox1.Value = «  » Then
MsgBox « Le champ Catégorie n’est pas renseigné. Merci de le faire »
Erreur = 1
End If
'si aucune erreur
'Ajout des données dans le tableau
If Erreur = 0 Then
Dim Ligne As Integer
Worksheets(« TABLES »).Select
Ligne = Sheets(« TABLES »).Range(« A1000 »).End(xlUp).Row + 1
Cells(Ligne, 1) = TextBox1.Value
TextBox1 = «  »
End If