Macro pour recopier une ligne selon une donnée variable

Bonjour,

J'ai une ligne dans une feuille (qui s'appelle "Final",pas sous forme de tableau, mais qui contient des formules).

La ligne que je dois copier un certain nombre de fois va de B5:R5

En fait, je souhaite que cette ligne se recopie à la suite, selon la valeur d'une cellule, qui se trouve sur la feuille Calcul!$BF1

Par exemple, si la valeur de ma cellule est de 5 (sachant que cette valeur est sur la feuille Calcul!$BF1)

Alors ma ligne se recopie 5 fois

J'ai fait une macro avec l'enregistreur, en faisant la manipulation de manière manuel.

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("B5:R5").Select
    Selection.Copy
    Range("B6").Select
    ActiveSheet.Paste
    Range("B7").Select
    ActiveSheet.Paste
    Range("B8").Select
    ActiveSheet.Paste
    Range("B9").Select
    ActiveSheet.Paste
End Sub

Merci de votre aide, sachant que c'est la première partie de la macro dont j'ai besoin.

Car ensuite, j'ai besoin qu'elle copie toutes ses lignes dans un tableau, mais il faut procéder par étape, car la seconde est un peu plus délicate.

Merci de votre aide

Bonjour,

éventuellement comme ceci :

Sub copier()
nb = 5 + sheets("Calcul").Range("bf1")
Range("b6:b" & nb).Select
Range("b5:r5").Copy Destination:=Selection
End Sub

Cordialement.

Bonsoir,

Merci pour votre réponse, je vais essayer tout de suite, je vous tien au courant.

merci

Alors, incroyable, mais ça fonctionne très bien, sans problème.

La macro devait copier 20 lignes, et elle a copier les 20 lignes de ma formule, vraiment super cotent.

Bon, je vais cloture ce sujet, et je vais d'ici peu ouvrir un autre sujet qui est la suite de la maco

Car cela était la première étape.

Merci beaucoup

Je vais préparer le sujet pour la seconde étape,