Bonjour
Dans ce fichier j'ai ce code
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
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 SubSauf 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