Microsoft 365 VBA pour copier et insérer une ligne en dessous

FCMLE44

XLDnaute Impliqué
Bonjour

Dans ce fichier j'ai ce code

VB:
Sub InsèreCopieLigne()
ActiveSheet.Unprotect Password:="MALADIE"
ActiveCell.EntireRow.Insert
Rows(ActiveCell.Row + 1).Copy Rows(ActiveCell.Row)
On Error Resume Next
Rows(ActiveCell.Row).SpecialCells(xlCellTypeConstants, 1).ClearContents
ActiveSheet.Protect Password:="MALADIE"
End Sub

Sauf que lorsque je copie la ligne 2 et que j'insère la ligne copiée il me la met au dessus et non en dessous

Y aurait il une coquille dans le code ?

Merci
 

Pièces jointes

  • Classeur1.xlsm
    13.9 KB · Affichages: 3

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
315 098
Messages
2 116 190
Membres
112 679
dernier inscrit
Yupanki