Problème plan/groupe en insertion automatique

Bonjour,
J'ai un petit problème d'insertion automatique sous excel en utilisant une macro. Si je fais un insertion automatique par copie d’une ligne sur une structure excel avec plan/groupe, celle-ci se retrouve fractionnée. Comment modifier ma macro pour éviter ce fractionnement (inexistant quand j'utilise l'insertion manuelle)?


Sub insere_ligne()
'
' Macro enregistrée le 30/12/2008 par Didou
'
ActiveCell.EntireRow.Insert Shift:=xlDown
L = ActiveCell.Row
Range("A2", "IV2").Select
Selection.Copy
Range("A" & L, "IV" & L).Select
ActiveSheet.Paste
End Sub
Merci pour votre aide