error automation

[JoJules]

Hello members, someone can help me with this code, It crashes every time I launch my userform by ading this line of code:
[/CODE]
Dim dl As Integer
If Me.Txt_nom <> "" And Me.Txt_description <> "" And Me.Text_prix <> "" And Me.Txt_min <> "" Then
Sheets(2).ListObjects(1).ListRows.Add
dl = Sheets(2).Range("b9999").End(xlUp).Row




'Ajouter dans le tableau
Sheets(2).Range("B" & dl) = Me.Label_Info.Caption
Sheets(2).Range("C" & dl) = Me.Txt_nom
Sheets(2).Range("D" & dl) = Me.Txt_description
Sheets(2).Range("E" & dl) = CCur(Me.Text_prix)
Sheets(2).Range("H" & dl) = CInt(Me.Txt_min)
Sheets(2).Range("J" & dl) = "Active"


Sheets(8).Range("D19") = Sheets(8).Range("D19") + 1


ThisWorkbook.Save


Unload Add_article




End If

:eeek: