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

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite un bon WE

La petite que samedi lol

Ma feuille est filtrée et je n'arrive pas à "placer .SpecialCells (xlCellTypeVisible)"
pour ne trier que les lignes visibles

Voici le code

    With ActiveSheet 'Appels 'CodeName
        If .FilterMode Then .ShowAllData 'si la feuille est filtrée
            With .Rows("7:" & .Range("a65536").End(xlUp).Row)
            If .Row < 7 Then Exit Sub 'sécurité
            .Sort .Columns(10), xlAscending, Header:=xlNo
            End With
    End With

Pourriez-vous me dire où placer le ".SpecialCells (xlCellTypeVisible)" ?
Si besoin, je ferai un p'tit fichier test.

Merci à toutes et à tous
Je continue mes tâtonnements...

 

[Usine à gaz]

Bjr laurent950 , Bjr le Fil , le Forum
Oui Laurent, ça fonctionne maintenant.
Je suis désolé de n'avoir pas encore pu tester ta solution.
Mes neurones ont beugué lol
Si je me sens plus "d'attaque", je regarderai ce WE...