Insérer copie d'une ligne avec filtre actif

Bonjour le Forum !

J'utilise une macro qui me permet, dans chaque feuille, d'insérer, sous la ligne de la cellule active, une nouvelle ligne contenant déjà les mises en formes et les formules dont j'ai besoin (voir code ci-dessous).

La nouvelle ligne est une copie de la ligne 1, qui est masquée.

J'aimerais apporter une petite amélioration, mais je ne sais pas comment faire.

Quand un filtre est actif, la macro ne fonctionne pas bien : une nouvelle ligne est bien insérée, mais elle ne comprend ni formule ni format.

Comment modifier le code pour que la macro fonctionne même en présence d'un filtre ?

Si un crack du VBA peut m'aider, ce sera cool !

Merci.

Sub Insérer_Ligne_dito_ligne_1_compris_formules_et_formats()
Application.ScreenUpdating = False
Dim Lg As Integer
    Lg = ActiveCell.Row
    Rows(1).Copy
        With Rows(Lg)
         .Rows.Insert
         .Offset(-1, 0).Hidden = False
        End With
    Application.CutCopyMode = False
End Sub

Bonjour,

A tester.

Cdlt.

Sub Insérer_Ligne_dito_ligne_1_compris_formules_et_formats()
Dim Lg As Long

    Lg = ActiveCell.Row
    Rows(2).Hidden = False
    Rows(Lg).Insert
    Rows(2).Copy Destination:=Cells(Lg, 1)
    Application.CutCopyMode = False
    Rows(2).Hidden = True

End Sub

Après une petite adaptation, ça marche nickel.

Merci beaucoup !!!