Sub Delet_ligne_2()
Dim Area As Range
Application.ScreenUpdating = False
ActiveSheet.Unprotect
For Each Area In Selection.Areas
Area.EntireRow.Delete
Next Area
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True, AllowFormattingRows:=True _
, AllowSorting:=True, AllowFiltering:=True
Application.ScreenUpdating = True
End Sub