cODE MONTER - DESCENDRE ETC...

Sub Supprimer()
Set rep = Application.InputBox("sélectionnez une cellule sur la ligne à supprimer", Type:=8) 'demande de sélectionner une cellule
rep.EntireRow.Delete 'suppression de la ligne complète !! pas de controle sur la zone qui va surement devoir etre limitée..

End Sub

Sub Inserer()

Set rep = Application.InputBox("sélectionnez une cellule au dessus de la quelle il faut insérer une ligne", Type:=8)
Application.ScreenUpdating = False
rep.EntireRow.Insert (xlUp) 'insertion d'une ligne au dessus
rep.EntireRow.Select 'selection de la ligne complète
Selection.AutoFill Destination:=Selection.Offset(-1).Resize(2), Type:=xlFillDefault 'recopie des formules vers le haut
Range("B" & rep.Row - 1).Select 'sélection de la zone fusionnée en colonne B-J
Selection.ClearContents 'on efface son contenu

Application.ScreenUpdating = True
End Sub

Sub Monter()
    Set rep = Application.InputBox("sélectionnez une cellule au dessus de la quelle il faut insérer une ligne", Type:=8)

    rep.EntireRow.Cut
    rep.EntireRow.Offset(-1).Insert shift:=xlDown
End Sub

Sub Descendre()
    Set rep = Application.InputBox("sélectionnez une cellule au dessus de la quelle il faut insérer une ligne", Type:=8)

    rep.EntireRow.Cut
    rep.EntireRow.Offset(2).Insert shift:=xlDown

End Sub