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

[FCMLE44]

Bonjour

Dans ce fichier j'ai ce code

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

 

[Cousinhub]

Bonjour,
Pourquoi utiliser une macro, pour faire ce qu'un Tableau Structuré fait tout seul? (Recopie automatique des formats, formules, validation de données....)

 

[FCMLE44]

Bonjour
Parce que pour ne pas que les personnes utilisatrices modifient les formules, la feuille est protégée et par conséquent impossible d'insérer des lignes

 

[Cousinhub]

Re-,
Peut-être en rajoutant un +1 à l'avant-dernière ligne?

Rows(ActiveCell.Row + 1).SpecialCells(xlCellTypeConstants, 1).ClearContents

 

[FCMLE44]

Ca semble fonctionner
Merci

 

[Phil69970]

Bonjour à tous

Je te propose ceci
Le MDP est dans le code