Sub DerLigneNonVideM() '-mapomme
Dim ConstFormule, xtype
Dim xrg As Range, xarea As Range
Dim Lmax As Long, L As Long
ConstFormule = Array(xlCellTypeConstants, xlCellTypeFormulas)
On Error Resume Next
For Each xtype In ConstFormule
Set xrg = ActiveSheet.Cells.SpecialCells(xtype, 23)
If Not xrg Is Nothing Then
For Each xarea In xrg.Areas
L = xarea.Row - 1 + xarea.Rows.Count
If L > Lmax Then Lmax = L
Next xarea
End If
Next xtype
MsgBox Lmax
End Sub