Voici mon code pour doubler la ligne active :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub double_ligne()
 
With Selection
        .Insert Shift:=xlToUp
End With
ActiveCell.EntireRow.Offset(1).Copy
Selection.PasteSpecial Paste:=xlPasteValues
 
Application.CutCopyMode = False
 
End Sub
Mais il insère toujours une ligne avant la ligne active. Comment faire l'inverse.
J'ai essayé :

.Insert Shift:=xlDown
.Insert Shift:=xlUp

mais ces dernier ne marchent pas.

Je crois que le problème reste très simple pour vous.

Merci par avance