XL 2021 Feuille filtrée, ne trier que les lignes visibles

Cells(Cells.rows.count,"A").End(xlUp) ' cela permet le ça échéant d'aler plus loin que 65536 lignes!
With ActiveSheet
   .Range(.Range("A3"),.cells(.Cells.Rows.Count,"ZZ").End(xlUp))
End With

Sub test()
'FiltreTrie ObjetAutoFilter, Colonne,Desc:=True/False
FiltreTrie ActiveWorkbook.Worksheets("Feuil1").AutoFilter, "B"
FiltreTrie ActiveWorkbook.Worksheets("Feuil1").AutoFilter, "B", True

End Sub
Sub FiltreTrie(Filter As AutoFilter, Col As String, Optional Desc As Boolean)
 With Filter.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range(Col & ":" & Col) _
        , SortOn:=xlSortOnValues, Order:=IIf(Desc, xlDescending, xlAscending), DataOption:= _
        xlSortNormal
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Sub TriSurTableauFiltreSansEntêtes1()
' Filtre ne tiens pas compte des le Champs soit les En-Têtes = Header:=xlNo
    Dim ws As Worksheet
    Dim rngFiltre As Range
    Dim critereFiltre As String
 
    ' Remplacez "Feuil1" par le nom de votre feuille contenant le tableau
    Set ws = ThisWorkbook.Worksheets(ActiveSheet.Name)
 
    ' Remplacez "A2:C" & Range("A1048576").End(xlUp).Row par la plage de votre tableau filtré
    Set rngFiltre = ws.Range("A3:C" & Range("A1048576").End(xlUp).Row)
 
    ' Remplacez "CritereFiltre" par le critère utilisé = Exemple "A Rappeler"
    critereFiltre = "A Rappeler" '"CritereFiltre"
 
    ' Appliquer le filtre sur la colonne du critére dans l'exemple = Colonne 1
    ' Field = Colonne 1
    rngFiltre.AutoFilter Field:=1, Criteria1:=critereFiltre
 
    ' Trier le tableau filtré sans enlever le filtre
    ' par ordre croissant (Choix du tri sur la colonne 2)
        triCoissant rngFiltre, 2
 
    ' Trier le tableau filtré sans enlever le filtre
        'Tri par ordre décroissant (Choix du tri sur la colonne 2)
        TriDécoissant rngFiltre, 2
 
    ' Désactiver le filtre pour afficher toutes les lignes triées
    ws.AutoFilterMode = False
End Sub
Sub triCoissant(ByVal rngTri As Range, ByRef Colonne As Integer)
        ' Trier le tableau filtré sans enlever le filtre
        ' par ordre croissant
    rngTri.Sort key1:=rngTri.Columns(Colonne), Order1:=xlAscending, Header:=xlNo
End Sub
Sub TriDecoissant(ByVal rngTri As Range, ByRef Colonne As Integer)
        ' Trier le tableau filtré sans enlever le filtre
        ' par ordre décroissant
    rngTri.Sort key1:=rngTri.Columns(Colonne), Order1:=xlDescending, Header:=xlNo
End Sub