Re,
Pour du VBA, une fonction personnalisée (voir module1). Fonctionne même si la plage est filtrée.
Function DerLig(xrg As Range)
Dim xcol, x, n&
On Error Resume Next
For Each xcol In xrg.EntireColumn
x = Application.Match(9 ^ 99, xcol, 1)
If Not IsError(x) Then If x > n Then n = x
x = Application.Match("zzzzz", xcol, 1)
If Not IsError(x) Then If x > n Then n = x
Next xcol
DerLig = n
End Function