Bonjour et bienvenue sur le forum
Essaie ce code :
Dim n, ln, lgn, i
Sub Insérer()
n = Selection.Rows.Count
ln = Selection.Resize(1, 1).Row
For lgn = ln + n To ln + 2 Step -1
Range(Cells(lgn - 1, "A"), Cells(lgn - 1, "M")).Select
Range(Cells(lgn - 1, "A"), Cells(lgn - 1, "M")).Insert shift:=xlDown
Next lgn
End Sub
Te convient-il ?
Bye !