XL 2016 Comment supprimer les résultats vides des formules

Sub test()
    With Sheets("Tableau actualisé")
        .Range("AA2").CurrentRegion.Offset(1, 0).Clear 'on efface le tableau à droite (mise en forme Et contenu) SAUF la ligne d'entete
        LastLine = .Range("A" & .Rows.Count).End(xlUp).Row 'dernière ligne NON vide de la colonne A
        Set ZoneToCopy = .Range("A2:O" & LastLine) 'on set la Zone
        ZoneToCopy.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd, Criteria2:="<>" 'on filtre sur la colonne Z: <>0 et <>""
        ZoneToCopy.SpecialCells(xlCellTypeVisible).Copy Destination:=.Range("AA2") 'on copie le résultat à droite
        ZoneToCopy.AutoFilter 'on enlève le filtre
    End With
End Sub

Sub MajF()

    If ActiveSheet.AutoFilterMode Then ActiveSheet.Cells.AutoFilter
    Range("AA1:AO" & Cells(Rows.Count, "AA").End(xlUp).Row).Clear
  
    Range("$A$1:$O$30").AutoFilter Field:=1, Criteria1:=">0"
    Range("$A$1:$O$30").SpecialCells(xlCellTypeVisible).Copy
  
    With Range("AA1")
        .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
        .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone
    End With
      
    ActiveSheet.Cells.AutoFilter

End Sub