Sub DerniereLigneFiltree()
Dim t
With ActiveSheet.AutoFilter.Range
On Error Resume Next
t = Split(.Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Cells.SpecialCells(12).Address, "$")
On Error GoTo 0
End With
mess = "Numéro de la dernière ligne filtrée: " & t(UBound(t)) & Chr(13)
mess = mess & "Adresse Cellule: " & Cells(t(UBound(t)), "A").Address(0, 0) & Chr(13)
mess = mess & "Valeur de la Cellule: " & Cells(t(UBound(t)), "A").Value
MsgBox mess
End Sub