Sub InsererLigne()
ActiveSheet.Unprotect
With ActiveCell
Rows(.Row).Copy 'copie de la ligne de la cellule active
Rows(.Row).Insert xlDown 'insertion de la copie en ligne suivante
Rows(.Row + 1).EntireRow.Hidden = False 'affichage ligne suivante
Application.CutCopyMode = False 'supprime la marque de sélection
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub