Sub Supprime_ligne_produit()
Dim i As Long
Dim DebTablo, LigneToSup As Integer
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
DebTablo = 97
LigneToSup = Sheets("PARAMETRAGE STRUCTURE").Range("C6")
Sheets("PARAMETRAGE PRODUIT").Rows(DebTablo + LigneToSup).Delete
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
'Dim rep
' rep = InputBox("Ligne à supprimer")
'If IsNumeric(rep) Then Range("A" & rep).EntireRow.Delete
End Sub