Sub EffacerLignes()
Dim derLign As Long
Dim i As Long
Application.ScreenUpdating = False
With Sheets(1)
derLign = .Range("A" & .Rows.Count).End(xlUp).Row
For i = derLign To 1 Step -1
If WorksheetFunction.CountA(.Range(.Cells(i, "D"), .Cells(i, "M"))) = 0 Then
.Rows(i).EntireRow.Delete
End If
Next i
End With
Application.ScreenUpdating = True
End Sub