Voila!

'Efface les "lignes" vides dans la selection si la row ne contient aucune donnee.
'On eteind calculation and screenupdating pour accelerer le macro.#

With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
'On travaille a l'envers car on efface

For i = Selection.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
Selection.Rows(i).EntireRow.Delete
End If
Next i


With Application
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With