Windows 7 - 64bits : inserer des ligne dans un tableau

Bonjour,


Je travailles sur un projet et je dois comparer deux colonnes dans un tableau et l' orsque l'element à comparer est trouve , introduire une donnes dans la colonne qui precede celle où se trouve l'element trouve et ensuite inserer dans un certains nombre de ligne les element de la ligne où se trouve l' element trouvé. un exemple pour etre plus clair.
Dans mon Tableau j' ai les colonnes suivantes
A B C D E
5300813760 5300029182 11220267 03.06.2014 1750132060
5300703374 5300029106 11220267 03.06.2014 1750107114
5300703527 5300028982 11220267 04.06.2014 1810008061
5300789807 5300028980 11220267 18.06.2014
5300029182 5300028978 11220267 18.06.2014
5300787795 5300082378 11220267 19.06.2014
5300708723 5300064374 11220267 19.06.2014
5300747974 5300093244 11220267 20.06.2014
5300748307 11220267 20.06.2014
5300746881 11220267 20.06.2014

Les elements de la colonne "e;C"e; sont recherches dans la colonne "e;B"e; .Donc le nombre"e;5300029182"e; qui se trouve à la cinquieme ligne de la colonne "e;B"e; sera retrouve, inserer un nombre dans la colonne "e;A"e; en cinquieme ligne, ensuite trois lignes devraient etre crees en bas de cette ligne(cinquieme ligne), copie le contenu de la ligne 5 au complet et le coler dans les trois lignes creees.
Les trois elements de lacolonne "e;F"e; sont celles qui defraient etre copier dans la Colonne "e;A"e; en ligne 6, 7 et 8.

La Macro suivante est celle que j' ai pu ecrire, mais elle ne resout pas totalement mon probleme

Sub Inserer()
Dim rngA As Range
'Application.ScreenUpdating = False
DL = Range("e;B1"e;).End(xlDown).Row
For i = 1 To DL
If Cells(i, 2) = "e;5300029182"e; Then
Cells(i, 1) = "e;1750132060"e;
Range("e;A"e; & i + 1).Resize(4).EntireRow.Insert
End If
Next



Merci d' avance pour votre aide