Datagridview - les colonnes sont répétées

Bonjour,

Pourquoi dans mon code, les colonnes de mon Datagridview sont répétées a chaque ajout de ligne?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 Private Sub BT_ADD_PANIER_Click(sender As Object, e As EventArgs) Handles BTN_ADD_PANIER.Click
Dim j As Integer = DG_LISTE_NOMENCL.CurrentRow.Index
 
        With DG_PANIER
            .Columns.Add("NOMENCLATURE", "NOMENCLATURE")
            .Columns.Add("DESIGNATION", "DESIGNATION")
            .Columns.Add("UC", "UC")
            .Columns.Add("QUANTITE", "QUANTITE")
        End With
 
        DG_PANIER.Rows.Add(DG_LISTE_NOMENCL.Rows(j).Cells("NOMENCLATURE").Value, DG_LISTE_NOMENCL.Rows(j).Cells("DESIGNATION").Value, _
                    DG_LISTE_NOMENCL.Rows(j).Cells("UC").Value, TB_QTE.Text)
 
 
    End Sub

Merci pour votre aide.

J'ai retiré le WITH et inscrit les noms des colonnes en dur !

Private Sub BT_ADD_PANIER_Click(sender As Object, e As EventArgs) Handles BTN_ADD_PANIER.Click Dim j As Integer = DG_LISTE_NOMENCL.CurrentRow.Index With DG_PANIER .Columns.Add("NOMENCLATURE", "NOMENCLATURE") .Columns.Add("DESIGNATION", "DESIGNATION") .Columns.Add("UC", "UC") .Columns.Add("QUANTITE", "QUANTITE") End With DG_PANIER.Rows.Add(DG_LISTE_NOMENCL.Rows(j).Cells("NOMENCLATURE").Value, DG_LISTE_NOMENCL.Rows(j).Cells("DESIGNATION").Value, _ DG_LISTE_NOMENCL.Rows(j).Cells("UC").Value, TB_QTE.Text) End Sub