XL 2019 Dupliquer une selection (ligne) selon la variable d'une cellule

Staple1600 à dit:

Bonsoir le fil, xfury25

Une petite macro qui fonctionne sur ton fichier exemple
(au préalable, effacer le contenu de la feuille Sortie données, en gardant uniquement la ligne d'entête)
Puis lancer la macro en étant sur la 1ere feuille.

VB:

Sub Recopier_Pour_Etiquettes()
Dim NB_ETQ As Range, c As Range, nb&, f As Worksheets: Set f = Sheets("Entrée données")
Set NB_ETQ = f.Range("I3", f.Range("I3").End(xlDown))
For Each c In NB_ETQ
    If IsNumeric(c) Then
    If c.Value > 0 Then
        For nb = 1 To c.Value
        c.EntireRow.Copy _
            Destination:=Sheets("Sortie données").Range("A" & Rows.Count).End(xlUp)(2)
        Next
    End If
    End If
Next
End Sub

Cliquez pour agrandir...

Dim NB_ETQ As Range, c As Range, nb&, f As Worksheets[B]: Set f = Sheets("Entrée données")[/B]

Staple1600 à dit:

Bonsoir le fil

Aie, Caramba
Mea culpa!
Erreur dans mon copier/coller (en voulant faire plus court)
L'erreur au niveau de la ligne des déclarations de variable.
un s de trop !!!
Voici ce que j'aurais du copier/coller
Dim NB_ETQ As Range, c As Range, nb&, f As Worksheet: Set f = Sheets("Entrée données")
Je te laisse trouver où était le s surnuméraire.


PS: Encore désolé pour ce petit contre-temps.

Cliquez pour agrandir...