Copier des lignes et les insérer à l'endroit où la cellule est sélectionnée

Bonjour à tous,

J'espère que ma question sera suffisamment précise !

Dans mon tableau, je souhaite pouvoir sélectionner une cellule (ce sont les cellules identifiées en JAUNE dans mon fichier), puis, lorsque je lance une macro, cette macro réalise les actions suivantes :

- Elle copie 2 lignes qui sont dans l'entête du tableau (ce sont des lignes pré-formatées et mise en forme comme je le souhaite) : correspond aux lignes 1 et 2 de mon fichier ;

- Elle insère ces 2 lignes aux dessus de la cellule que j'ai sélectionnée (cellule JAUNE sur mon fichier).

Les cellules jaunes correspondent en fait aux endroits où l'utilisateur pourra ajouter des lignes au tableau. Ceci permet de me garantir que les lignes ajoutées seront intégrées dans les plages des formules.

Ne vous inquiétez pas, mon fichier en pièce jointe ne présente aucun risque, il ne contient aucune macro.

Un énorme merci d'avance pour l'aide que vous pourrez m'apporter.

Bon week-end à tous, et bravo pour ces belles compétences que vous avez et que j'aimerais avoir aussi

bonsoir.

essaye cette macro.

Sub ajout_lignes()
Dim MaPlage As Range
Dim ligneA As Integer
Dim colA As Integer

Set MaPlage = Selection
ActiveWorkbook.Names.Add Name:="MaPlage", RefersToR1C1:=MaPlage
MaPlage.Select

ligneA = Selection.Row
colA = Selection.Column

Dim CurrentSheet As Object
For Each CurrentSheet In ActiveWindow.SelectedSheets
CurrentSheet.Cells(ligneA, colA).EntireRow.Insert
CurrentSheet.Cells(ligneA, colA).EntireRow.Insert
Next CurrentSheet

Rows("1").Copy
Rows(ligneA).PasteSpecial Paste:=xlPasteValues
Rows("2").Copy
Rows(ligneA + 1).PasteSpecial Paste:=xlPasteValues

End Sub