Sub Efface_Lignes_Apparemment_Vides()
Dim i&, j&, k, s$, plg As Range
With Application: .ScreenUpdating = False: .Calculation = xlCalculationManual: .EnableEvents = False: End With
Set plg = Columns("A:K") 'Bloc de colonnes à traiter
k = plg.Columns.Count
For i = plg.Columns(1).Cells(Rows.Count).End(xlUp).Row To 2 Step -1
For j = 1 To k: s = s & Cells(i, j).Value: Next
If s = "" Then Rows(i).Resize(1, k).Delete shift:=xlUp Else s = ""
Next
With Application: .EnableEvents = True: .Calculation = xlCalculationAutomatic: .ScreenUpdating = True: End With
End Sub