Ajouter des lignes automatiquement avec même format

[Ilino]

Bonjour Forum
Je souhaiterai automatiser mon tableau de cette manière
Dans la cellule K5 il ya un chiffre
Les lignes de 11-14 du tableau model. On va le nommé ligne model.
Je souhaiterai ajouter automatiquement entre des lignes (11-14) et ligne Visa le même nombre de ligne model (15-18) et même format selon le chiffre afficher dans la cellule K4 et ainsi de suite.
Merci

 

[Ilino]

Re : Ajouter des lignes automatiquement avec même format

Forum Bonjour
est ce que mon souci est claire ?
grazie

 

[sousou]

Re : Ajouter des lignes automatiquement avec même format

bonjour Illino
essaie ce code
Sub ajoute()
With ActiveSheet
nb = .Range("k5")
Set ligne = .UsedRange.Find("Visa")
Set zone = .Rows("11:14")

zone.Select
For n = 1 To nb
zone.Copy

activesheet.Cells(ligne.Row, 1).EntireRow.Insert
Next
End With
End Sub

 

[Ilino]

Re : Ajouter des lignes automatiquement avec même format

Bonjour sousou
et grazie pour la réponse
ça fonctionne tres bien
A+