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