XL 2010 Collage valeur dans formulaire avec Userform

For N = 1 To 16
    UserForm2.Controls("Art_" & N).RowSource = "Produit"
    UserForm2.Controls("Tbx_Quant" & N).Value = 1
Next N

 Set ws = ThisWorkbook.Sheets("Base") ' Remplace "Base" par le nom de ta feuille
lastRow = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row  ' Trouve la première ligne vide
If Me.Art_1.Value <> "" Then
    ws.Cells(lastRow, 1).Value = TextBox_DateDuJ.Value
    ws.Cells(lastRow, 2).Value = Me.ComboBox_Carte.Value
    ws.Cells(lastRow, 3).Value = Me.Tbx_NbPoints.Value
    ws.Cells(lastRow, 4).Value = Me.Tbx_Nom.Value
    ws.Cells(lastRow, 5).Value = Me.Tbx_Prénom.Value
    ws.Cells(lastRow, 6).Value = Me.ComboBox_Semaine.Value
    ws.Cells(lastRow, 7).Value = Me.Art_1.Value ' Colonne A : première donnée
    ws.Cells(lastRow, 8).Value = Me.Tbx_Quant1.Value ' Colonne B : deuxième donnée
    ws.Cells(lastRow, 9).Value = Me.Tbx_Dotation.Value
    ws.Cells(lastRow, 10).Value = Me.TextBox8.Value
End If
lastRow = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row  ' Trouve la première ligne vide