Insertion d'une ligne avec mise en forme

Bonjour,

J'ai un classeur en PJ dans lequel je souhaite ajouter des lignes "types" selon un modèle sur une autre feuille de mon classeur

Le modèles type se trouve sur la feuille BD de la colonne E2 à BQ2

Et je souhaiterai inserer cette ligne toujours au dessus de la ligne ou est marquée "TOTAL" sur ma feuille PA

Merci pour votre aide.

Bonjour,

Un essai ...

En donnant un nom à la cellule Total > "LeTotal" ...

En donnant un nom à la plage E:BQ > "LeModele" ...

Il ne faut qu'un petit bout de code ...

Sub insertion()
Dim Lig As Integer
    With Worksheets("PA")
        Lig = .Range("LeTotal").Row
        Range("LeModele").Copy
        .Rows(Lig & ":" & Lig).Insert Shift:=xlDown
    End With
End Sub

ric