XL 2016 VBA dernière cellule vide.

Function derLigne&(xcell As Range)
Dim der&, t, i&
   With xcell.Parent
      On Error Resume Next
      der = .UsedRange.Row + .UsedRange.Rows.Count - 1
      If der > 0 Then
         t = .Cells(1, xcell.Column).Resize(der).Formula
         For i = der To 1 Step -1
            If Len(t(i, 1)) <> 0 Then Exit For
         Next i
         If i >= 1 Then derLigne = i
      End If
      On Error GoTo 0
   End With
End Function

Sub Formules()
Dim N&
   With Sheets("Sheet")
      N = derLigne(.Range("f1"))
      .Range("g2:g" & Rows.Count).ClearContents
      If N > 1 Then .Range("g2:g" & N).FormulaR1C1 = "=-RC[-1]"
   End With
End Sub

'Défiltrer pour ne pas fausser le xlUp avec des lignes de fin filtrées
With Activesheet
    If Not .AutoFilter Is Nothing Then .AutoFilter.ShowAllData
    DernièreLigne = .Cells(Rows.Count, NoColonne).End(xlUp).Row
End With

'----------------------------------------------------------------------
'Calcul de la dernière ligne non vide d'une colonne avec fonction Match
'DernièreLigne = DernièreLigneEnColonne(ActiveSheet, 1)
'----------------------------------------------------------------------
Function DernièreLigneEnColonne(ByVal Feuille As Worksheet, ByVal NuméroColonne As Long) As Long
    Const ChaineMax as String = "zzzzzzzzzzzzzzzzzzzz"
    Const NombreMax as Double = (2 ^ 53 - 1) * 2 ^ 971
    Dim Colonne As Range
 
    Set Colonne = Feuille.Columns(NuméroColonne)
 
    With Application
        DernièreLigneEnColonne = .Max(.IfError(.Match(ChaineMax, Colonne, 1), 0), _
                                      .IfError(.Match(NombreMax, Colonne, 1), 0))
    End With
End Function

'Défiltrer et démasquer pour ne pas fausser le xlUp avec des lignes de fin filtrées ou masquées
With ActiveSheet
    If Not .AutoFilter Is Nothing Then .AutoFilter.ShowAllData
    .Cells.EntireRow.Hidden = False
    DernièreLigne = .Cells(Rows.Count, NoColonne).End(xlUp).Row
    If IsEmpty(.Cells(DernièreLigne, NoColonne)) Then DernièreLigne = 0
End With

Sub a()
    MsgBox xlUpDernièreLigneEnColonne(ActiveSheet, ActiveCell.Column)
    'MsgBox MatchDernièreLigneEnColonne(ActiveSheet, ActiveCell.Column)
End Sub

'----------------------------
'Dernière ligne d'une colonne
'Colonne: numéro ou lettre
'----------------------------
Function xlUpDernièreLigneEnColonne(ByVal Feuille As Worksheet, ByVal Colonne As Variant) As Long
    Dim DernièreLigne As Long
    Dim Tbl As ListObject
  
    With ActiveSheet
        'Défiltrer et démasquer pour ne pas fausser le xlUp avec des lignes de fin filtrées ou masquées
        If Not .AutoFilter Is Nothing Then .AutoFilter.ShowAllData
        .Cells.EntireRow.Hidden = False
        DernièreLigne = .Cells(Rows.Count, Colonne).End(xlUp).Row
      
        For Each Tbl In .ListObjects
            If Not Intersect(.Cells(DernièreLigne, Colonne), Tbl.Range) Is Nothing Then Exit For
        Next Tbl
      
        If Not Tbl Is Nothing Then
            Do While DernièreLigne > 1 And IsEmpty(.Cells(DernièreLigne, Colonne))
                DernièreLigne = .Cells(DernièreLigne, Colonne).End(xlUp).Row
            Loop
        End If

        If IsEmpty(.Cells(DernièreLigne, Colonne)) Then DernièreLigne = 0
    End With
  
    xlUpDernièreLigneEnColonne = DernièreLigne
End Function

'----------------------------------------------------------------------
'Calcul de la dernière ligne non vide d'une colonne avec fonction Match
'Colonne: numéro ou lettre
'----------------------------------------------------------------------
Function MatchDernièreLigneEnColonne(ByVal Feuille As Worksheet, ByVal Colonne As Variant) As Long
    Const ChaineMax As String = "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz"
    Const NombreMax As Double = (2 ^ 53 - 1) * 2 ^ 971
    Dim RngColonne As Range
    Dim RngFormulaErrors As Range
    Dim MaxErrorLine As Long
 
    Set RngColonne = Feuille.Columns(Colonne)
   
    On Error Resume Next
    Set RngFormulaErrors = RngColonne.SpecialCells(xlCellTypeFormulas, xlErrors)
    If Err.Number = 0 Then
        Set RngFormulaErrors = RngFormulaErrors.Areas(RngFormulaErrors.Areas.Count)
        MaxErrorLine = RngFormulaErrors.Cells(RngFormulaErrors.Cells.Count).Row
    End If
    On Error GoTo 0
 
    With Application
        MatchDernièreLigneEnColonne = .Max(.IfError(.Match(ChaineMax, RngColonne, 1), 0), _
                                           .IfError(.Match(NombreMax, RngColonne, 1), 0), _
                                           MaxErrorLine)
    End With
End Function