Pb d'ajout de ligne

Bonsoir, j'ai créé un fichier courses avec macro. En colonne A, j'ai le magasin, en colonne B, la quantité, et en colonne C l'article. Lorsque je mets en colonne A le magasin, les colonnes B et C sont remplies avec ajout de ligne. Si je ne mets pas le magasin, à partir de la seconde ligne la quantité et l'article sont à chaque fois remplacés. Après avoir cherché, je suis toujours bloqué. Si un membre pouvait m'aider, je le remercie d'avance.

Cdt

Bonsoir,

Une proposition :

Private Sub CommandButton2_Click()

Sheets("Liste_des_courses").Activate
Dim linsuiv As Integer
'.....Selectionner la derniere cellule vide dans le tableau dans la colonne a:a à partir du bas

linsuivA = [A1048576].End(xlUp).Row + 1
linsuivB = [B1048576].End(xlUp).Row + 1
linsuivC = [C1048576].End(xlUp).Row + 1

linsuiv = Application.WorksheetFunction.Max(linsuivA, linsuivB, linsuivC)
Cells(linsuiv, 1) = ComboBox1.Text
Cells(linsuiv, 2) = ComboBox52.Text
Cells(linsuiv, 3) = ComboBox2.Text
ComboBox1.Text = ""
ComboBox52.Text = ""
ComboBox2.Text = ""

End Sub

A+

Bonjour

Bonjour à tous

Une variante.

Bye !

Bonjour, merci pour votre aide. Geof52 pour le code, j'ai compris qu'il fallait retranscrire pour chaque colonne. Merci encore.