Ajouter un ligne à patir d'un formulaire

en insérant ce code pour ajouter une nouvelle colonne à partir d'un formulaire, je trouve un problème c'est que cette ligne ajoutée ne s'ajoute pas dans le tableau que je veux, elle s'ajoute tjrs dans la première ligne du fichier excel

voyez

Bonjour,

Une proposition à étudier.
Pas de lignes vides dans un tableau structuré (dynamique). !...
Cdlt.

Private Sub CommandButton1_Click()
Dim r As Range
    If Me.txt_nom <> "" And Me.Txt_désignation <> "" And Me.Txt_prix <> "" And Me.Txt_type <> "" And Me.Txt_description <> "" Then
        With Worksheets(2).ListObjects(1)
            If .InsertRowRange Is Nothing Then
                Set r = .HeaderRowRange.Cells(1).Offset(.ListRows.Count + 1)
            Else
                Set r = .InsertRowRange.Cells(1)
            End If
        End With
        With r
            .Value = Me.Labe_info.Caption
            .Offset(, 1).Value = Me.txt_nom
            .Offset(, 2) = Me.Txt_désignation
            .Offset(, 3) = CCur(Me.Txt_prix)
            .Offset(, 4).Value = Me.Txt_type
            .Offset(, 5).Value = Me.Txt_description
        End With
        Worksheets(5).Range("e11") = Sheets(5).Range("e11") + 1
        ThisWorkbook.Save
        Unload Ajout_article
    End If
End Sub

Bonsoir,
Autre proposition :

Remplacer

 DL = Sheets(2).Range("b9999").End(xlUp).Row

par ;

 DL = Sheets(2).UsedRange.Rows(Sheets(2).UsedRange.Rows.Count).Row