Insérer des données sur ligne vide à la suite d'une ligne pleine, en boucle

Bonjour,

Voici mon cas : j'aimerais insérer les données des cellules d'une fiche produit (quantité, prix, taille etc...) dans mon panier ( qui est sous forme d'un tableau ) sachant qu'une ligne s'ajoute dans le panier à chaque fois que je clique sur "ajouter panier" (bouton qui est sur ma fiche produit)

J'aimerais qu'à chaque fois que j'ajoute les données de ma fiche produit dans mon panier, qu'une nouvelle ligne se remplisse sans effacer la précédente. Il faut savoir que j'ai plusieurs fiches produits (un bouton ajoutez pour chaque fiche ) pour un même panier.

Voici mon code pour une fiche :

Sub Article1panier1()

rep = MsgBox("Voulez-vous sélectionner ce produit ?", vbYesNo)

If rep = vbYes Then

Sheets("Mon Panier").Range("C14") = "Article 1"

Sheets("Mon Panier").Range("D14") = Sheets("Produits").[I8]

Sheets("Produits").[I8] = [I8]

Sheets("Mon Panier").Range("E14") = Sheets("Produits").[K8]

Sheets("Produits").[K8] = [K8]

Sheets("Mon Panier").Range("F14") = Sheets("Produits").[I16]

Sheets("Produits").[I16] = [I16]

Sheets("Mon Panier").Range("G14") = Sheets("Produits").[I20]

Sheets("Produits").[I20] = [I20]

Sheets("Mon Panier").Range("H14") = Sheets("Produits").[I12]

Sheets("Produits").[I12] = [I12]

MsgBox ("Votre produit a bien été ajouté à votre panier")

Else

End If

End Sub

Merci d'avance

Salut rboschat et

à tester

Sub Article1panier1()
Dim ws As Worksheet
Dim DerLigne As Long

Set ws = Sheets("Produits")

rep = MsgBox("Voulez-vous sélectionner ce produit ?", vbYesNo)
    If rep = vbYes Then
        With Sheets("Mon Panier")
            DerLigne = .Cells(.Rows.Count, "C").End(xlUp).Row + 1

            .Range("C" & DerLigne) = "Article 1"
            .Range("D" & DerLigne) = ws.[I8]
            ws.[I8] = [I8] ' pourquoi cette ligne?????
            .Range("E" & DerLigne) = ws.[K8]
            ws.[K8] = [K8] ' pourquoi cette ligne?????
            .Range("F" & DerLigne) = ws.[I16]
            ws.[I16] = [I16] ' pourquoi cette ligne?????
            .Range("G" & DerLigne) = ws.[I20]
            ws.[I20] = [I20] ' pourquoi cette ligne?????
            .Range("H" & DerLigne) = ws.[I12]
            ws.[I12] = [I12] ' pourquoi cette ligne?????
        End With
    MsgBox ("Votre produit a bien été ajouté à votre panier")
    End If
End Sub

Bonne nuit

Bonjour,

C'est top merci beaucoup !