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...
🙂