Microsoft 365 Insertion de lignes

[MrNathan58]

Bonjour je cherche (simplement) à insérer une seule ligne au-dessus de lignes fusionnées.

Je m’explique : j’ai un tableau avec ma L2et L3 fusionnées et j’aimerais insérer 1 ligne au-dessus de ma L2.
Je n’ai aucun problème lorsque je le fais manuellement mais lorsque j’utilise une macro (par exemple : Rows("2:2").Select
Selection.Insert Shift:=xlDown )
Ca m ’insère 2 lignes au lieu d’une.
Savez-vous comment je peux faire ?

Merci par avance.

 

[cp4]

Bonjour,
Essaie ce bout de code, une ligne sera insérée au-dessus de la cellule active.

With ActiveCell
.EntireRow.Insert
End With

A+

 

[vgendron]

Bonjour

sans selectionner la ligne
Rows(2).Insert shift:=xlDown

 

[MrNathan58]

Bonjour,
Essaie ce bout de code, une ligne sera insérée au-dessus de la cellule active.

With ActiveCell
.EntireRow.Insert
End With

A+

Bonjour,
Ca fonctionne merci beaucoup !

 

[MrNathan58]

Bonjour

sans selectionner la ligne
Rows(2).Insert shift:=xlDown

Bonjour,
De même ça fonctionne ! Merci