Insertion Apres une Cellule contenant une certaine valeur

bonjour a tous

voila mon petit souci ma dernierre feuille est composée de plusieure cellule contenant un titre j aimerai pouvoir inserer des ligne juste en desous de chaque cellule titre selon condition exemple inserer la ligne 1 de la feuill 1 sous la ligne titre1 si la cellule "d1" de la lige 1 contien le "titre1"
seulement je ne connais pas la synthaxe de linsertion de ligne j ai chercher mais sans resultat

en claire

Code:

---

1 2 3

IF Worksheets(feuil1).cells(i;3).Text = Worksheets(feuil2).Cells(A1).text then ??????????????' insere la ligne1 de la Worksheets(feuil1) sous la Worksheets(feuil2).Cells(A1) end if

---

merci d'avance


ps j aimerai si possible garder la meme mise en forme donc garder la meme couleur de text, de fond, et la meme police et taille
et ne pas deplacer la ligne mais plutot inserer une copie de cette ligne

bonjour

essaye ça :

Code:

---

Worksheets(feuil1).rows(i+1).insert

---

attention, tu travailles dans une boucle (je pense à For / Next)
en ajoutant des lignes, ta limite inférieure va augmenter à chaque insertion. si tu utilises For / Next, change et utile Do loop until ou While / Wend