XL 2010 vba modifier nom de lignes dupliquées

[kan3pz]

Bonjour à tous,
J'ai besoin d'aide pour compléter une macro, voici mon problème :
J'ai une liste de produit en colonne A qui peut être répertorié sous différentes catégories.
Je souhaite dupliquer les produits selon le nombre de catégories dans lesquels ils apparaissent et modifier leurs noms lors de la duplication pour les identifier (ProduitA_cat1 ; produitA_cat2...)

Voici le début de la macro pour dupliquer mes lignes, je ne sais pas comment faire pour les renommer au passage...

Sub Duplication()
   
Dim LigneDuplic As Long
Dim NbCopie As Long

LigneDuplic = 2

For i = 2 To Range("A65536").End(xlUp).Row
    Sheets("Lignes").Select
    NbCopie = Cells(i, 7)
    Range(Cells(i, 1), Cells(i, 1)).Select
    Selection.Copy
    Sheets("Duplication").Select
    Range(Cells(LigneDuplic, 1), Cells(LigneDuplic + NbCopie - 1, 1)).Select
    ActiveSheet.Paste
   
    LigneDuplic = LigneDuplic + NbCopie

Next i
End Sub

Merci !

 

[pierrejean]

Bonjour kan3pz

Vois si cela te convient

 

[kan3pz]

Bonsoir Pierrejean,
Merci ça fonctionne parfaitement !