Ajout données à un tableau Excel

Bonjour à toutes et à tous,

Je viens vers vous car je bloque sur un sujet VBA, à mon avis simple pour vous ^^’

J’explique mon problème.

La 1er étape :

Dans l’onglet 2, j’ai un tableau avec 10 colonnes.

J’ai réussi à créer une macro qui ajoute automatiquement une ligne à ce tableau dès que je veux rajouter des données.

Code ci dessous :

“Sub AjoutLigneTab()
‘
‘ AjoutLigneTab Macro
‘

‘
Sheets(“Tableau”).Select
Range(“CondTab”).Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Range(“B6:K6”).Select
Sheets(“Conditionnement article”).Select
End Sub”

Mon problème arrive à la 2ème étape :

Dans l’onglet 1, j’ai des lignes (qui reprend les colonnes du tableau) dans lequel je rentre des données.
Je souhaiterais que dès que je clique sur le bouton, les données arrivent dans les bonnes colonnes du tableau (onglet 2).

J’ai fait cela avec ‘enregistrer une macro’ mais à chaque fois, les nouvelles données remplacent les précédentes.

Code ci-dessous :
”
Sub InscriptionData()
‘
‘ InscriptionData Macro
‘

‘
Sheets(“Tableau”).Select
Range(“CondTab”).Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Range(“B6:K6”).Select
Sheets(“Conditionnement article”).Select
Range(“B26”).Select
Selection.Copy
Sheets(“Tableau”).Select
Range(“B6”).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(“Conditionnement article”).Select
Range(“C26”).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(“Tableau”).Select
Range(“C6”).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(“Conditionnement article”).Select
Range(“D26:D33”).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(“Tableau”).Select
Range(“D6”).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets(“Conditionnement article”).Select
End Sub
”

Par avance, je vous remercie de votre aide.

Théo