Bonjour le fil, bonjour le forum,
Une solution VBA avec un bouton Récup.
Le code du bouton :
Private Sub CommandButton1_Click() 'bouton "Récup"
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim N As Integer 'déclare la variable N (Nombre)
Dim I As Integer 'déclare la variable I (Incérment)
Dim J As Byte 'déclare la variable J (incérment)
Dim PLV As Integer 'déclare la variable PLV (Première Ligne Vide)
Set OS = Worksheets("Feuil1") 'définit l'onglet OS
Me.Range("A1").CurrentRegion.Offset(1, 0).ClearContents 'efface les ancienne valeur (supprime cette ligne si tu dois les garder)
TV = OS.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
N = Application.InputBox("Combien de fois faut-il coller ?", Type:=1) 'définit le nombre N
If N = 0 Then Exit Sub 'si N vaut zéro sort de la procédure
For I = 2 To UBound(TV, 1) 'boucle 1 : sur toutes les lignes I du tableau des valeurs TV (en partant de la seconde)
For J = 1 To N 'boucle 2 : de 1 à N
PLV = Me.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1 'définit la première ligne vide PLV de la colonne A
'copie la cellule ligne I colonne 1 redimensionnée de l'onglet OS et la colle dans la cellue ligne PLV, colonne 1
OS.Cells(I, 1).Resize(1, 6).Copy Me.Cells(PLV, 1) 'copie la cellule ligne I colonne 1 redimensionnée et la colle
Next J 'prochaine fois de la boucle 2
Next I 'prochaine ligne de la boucle 1
End Sub
Le fichier :