XL 2016 VBA: dernière ligne valorisée d'une colonne ?

 With WS_Filtres.AutoFilter
        ZoneFiltres = .Range.Address
        With .Filters
            ReDim TabFiltres(1 To .Count, 1 To 3)
            For i = 1 To .Count
                With .Item(i)
                    If .On Then
                        TabFiltres(i, 1) = .Criteria1
                        If .Operator Then
                            TabFiltres(i, 2) = .Operator
                            TabFiltres(i, 3) = .Criteria2
                        End If
                    End If
                End With
            Next
        End With

'************************************************************************************
'              FONCTION FIND(LAST) ROW,COLUMN,CELL ON <<<defined range>>>
'Autor:patricktoulon
'version beta
'date version 29/03/2020
'************************************************************************************
Function UsedrangeOnRangeDef(tableau) As Range
    Dim lig&, col&, cel1 As Range, cel2 As Range, truc$
    With tableau
        With .Parent.AutoFilter
            If .Range.Address = tableau.Address Then
                'ici on recupere le critere du filtre
                For i = 1 To .Filters.Count
                    If .Filters.Item(i).On Then truc = .Filters.Item(i).Criteria1
                Next
                MsgBox truc    'juste pour voir
                If Not .Parent.AutoFilter Is Nothing Then .Parent.AutoFilter.ShowAllData    'ici on enleve le filtre
            End If
        End With

        Set cel1 = .Cells(1)
        col = .Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
        lig = .Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        Set cel2 = Cells(lig, col)
        Set UsedrangeOnRangeDef = .Parent.Range(cel1, cel2)
        .AutoFilter Field:=1, Criteria1:=truc    'ICI ON REMET LE FILTRE COMME IL ETAIT
    End With
End Function

'sub de test

Sub testusedRangedef()
    Dim plage As Range
    Set plage = [A1:A6000]
    MsgBox UsedrangeOnRangeDef(plage).Address
End Sub

Sub test()
tablo = ActiveSheet.UsedRange
For n = UBound(tablo, 1) + 1 To LBound(tablo, 1) Step -1
   If Range("A" & n).Formula <> "" Then
      nb = n
      Exit For
   End If
Next
MsgBox (nb)
End Sub

'---------------------------------------------------------------
'Calcul de la dernière ligne d'une colonne par ColumnDifferences
'---------------------------------------------------------------
Function NbLignesEnColonneDifférences(ByVal Feuille As Worksheet, ByVal NuméroColonne As Long) As Long
    Dim Addr As String
 
    If IsEmpty(Feuille.Cells(Rows.Count, NuméroColonne)) Then
        On Error Resume Next
        Addr = Feuille.Columns(NuméroColonne).ColumnDifferences(Feuille.Cells(Rows.Count, NuméroColonne)).Address
        If Err.Number = 0 Then NbLignesEnColonneDifférences = CLng(Mid(Addr, InStrRev(Addr, "$") + 1))
        On Error GoTo 0
    Else
        NbLignesEnColonneDifférences = Rows.Count
    End If
End Function

With Application
    NbLignes = .Max(.IfError(.Match("z", ActiveSheet.Columns(1)), 0), .IfError(.Match(9^99, ActiveSheet.Columns(1)), 0))
End With