Insertion de lignes

Bonjour,
je dois insérer 3 ligne vierges dans une feuille après un changement de nom dans une colonne
le code suivant fonctionne :
Rows("7:9").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
je change :
Rows("NumLigne: numligne+3").Select ou la variable me dit la ligne actuelle.
La variable NumLigne contient la bonne valeur.
Merci de me sortir de ce problème
Alibaba