Excel - Insert dans une zone nommée

Bonjour,

Encore une question se rapportant aux zones nommées sous Excel.

Exemple :

Sur une feuille j'ai une zone nommée (ref_1) pour les cellules C59 jusqu'a C70.

Quand j'insère une ligne entre les cellules C60 jusqu’a la cellule C70 pas de problème, la ligne est bien insérée et la zone nommée est bien agrandie de C59 jusqu’a C71

Par contre quand j'insère une ligne à partir de la cellule C59 la nouvelle ligne est insérée au dessus et NE RENTRE PAS dans la zone nommée qui est elle translatée de C60 jusqu'à C71

Comment faire (voir macro ci-dessous qui peux servir de base pour réflexion) pour corriger ce problème ???

Merci a tous

---------

Private Sub insert_ligne_Click()

lig_select = Selection.Row
nb_lig_select = Selection.Rows.Count

For activ_lig = lig_select To lig_select + nb_lig_select - 1
Rows(ActiveCell.Row & ":" & ActiveCell.Row).Select
Selection.Copy
Selection.Insert Shift:=xlDown
If Len(Cells(activ_lig, 3)) > 0 Then Cells(activ_lig, 3) = ""
If Len(Cells(activ_lig, 4)) > 0 Then Cells(activ_lig, 4) = ""
If Len(Cells(activ_lig, 5)) > 0 Then Cells(activ_lig, 5) = ""
If Len(Cells(activ_lig, 14)) > 0 Then Cells(activ_lig, 14) = ""
If Len(Cells(activ_lig, 20)) > 0 Then Cells(activ_lig, 20) = ""
If Len(Cells(activ_lig, 28)) > 0 Then Cells(activ_lig, 28) = ""
If Len(Cells(activ_lig, 29)) > 0 Then Cells(activ_lig, 29) = ""
If Len(Cells(activ_lig, 30)) > 0 Then Cells(activ_lig, 30) = ""
Next activ_lig

End Sub