Copier x fois une ligne sur la meme feuille

Bonjour

Je recommence à faire des macros après 10 ans d'arret...

Je voudrais copier ma ligne 2 ( seules les colonnes A à L sont renseignées) et la coller à partir de la ligne 12 x fois (x étant défini en O1)

j'ai écrit:

Dim i As Integer
For i = 1 To Range("O1").Value

Rows("2:2").Copy Range("12:12" & i + 1)

Next i

cela marche à peu pres mais avec O1 à 158 c'est hyper long (plus d'une minute) et en plus il me cache les lignes 12 à 12156!

Que puis je faire?

Bonsoir,

On peut simplifier comme ceci :

Sub essai()
Range("A2:L2").Copy Range("A12").Resize([O1])
End Sub

Bonne soirée

PS, pense à utiliser les balises pour insérer du code dans tes messages

Merci

C'était ma première demande. Je regarderai la prochaine fois à mettre des balises

Encore un grand Merci