Bonjour,
Une autre proposition en VBA. Exécuter la sub "Test()" :
Sub Test()
Dim Plage As Range
Set Plage = DefPlage(ActiveSheet)
Plage.Cells.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Function DefPlage(Fe As Worksheet, Optional L As Long = 1, Optional C As Long = 1) As Range
On Error GoTo Fin
With Fe
Set DefPlage = .Range(.Cells(L, C), _
.Cells(.Cells.Find("*", .[A1], -4123, , _
1, 2).Row, .Cells.Find("*", .[A1], -4123, , _
2, 2).Column))
End With
Exit Function
Fin:
Set DefPlage = Nothing
End Function