bonjour Nero2a
J'ai retrouvé dans mon grenier ces quelques lignes rédigées à l'époque par le brillant PASCAL76 qui devraient te plaire.
Procédure :
1 - coller les lignes de code dans ton éditeur
2 - selectionner la ligne à partir de laquelle tu souhaites insérer une nouvelle lignes
3 - exécuter la macro
Sub essai()
Dim MaLigneH As Double
Dim MaLigneB As Double
Dim MaPlage As Range
Dim MesLignes As Double
Set MaPlage = Selection
MesLignes = MaPlage.Rows.Count
MaLigneH = MaPlage.Row
MaLigneB = MaLigneH + MesLignes - 1
Rows(MaLigneH & ':' & MaLigneB).Insert Shift:=xlDown
Range('A' & MaLigneH - 1 & ':G' & MaLigneH - 1).AutoFill Destination:=Range('A' & MaLigneH - 1 & ':G' & MaLigneB), Type:=xlFillDefault
On Error Resume Next
Rows(MaLigneH & ':' & MaLigneB).SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub
Je pense qu'en recherchant dans le forum 1ere génération (Coucou Céléda) tu devrais même retrouver le fil.
Cordialement