XL 2021 Sélectionner la 1ère cellule après filtrage

[Usine à gaz]

Bonjour à toutes et à tous

Me revoilà encore pour un code qui pourrait paraître simple mais que je n'arrive pas à faire Grrre !!!

J'ai fait un code pour filtrer :

Sub TrieRappelsUrgents()
On Error Resume Next
[a6:a30005].AutoFilter
    Rows("7:30000").Select
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("m7:m30000" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.ActiveSheet.Sort
        .SetRange Range("A7:BZ30000")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
   
    Range("A6:zz10000").AutoFilter
    Sheets("Appels").Range("A6:zz10000").AutoFilter Field:=20, Criteria1:="R"
    ActiveWindow.ScrollRow = Selection.Row
End Sub

Au clic sur le bouton "Tri Rappels Urgents", je voudrais sélectionner la 1ère cellule après filtrage, soit pour mon exemple la cellule "E10"

Mes recherches et tests n'ont pas abouti
Auriez-vous le bon code ?
En cas, ce dont je vous remercie, je joins le fichier test.
Entre temps, je continue mes recherches...

 

[sylvanu]

Bonjour Lionel,
Un essai en PJ en ajoutant à la fin de la macro :

Range("E7", Cells(Rows.Count, "E").End(xlUp)).SpecialCells(xlCellTypeVisible).Cells(1, 1).Select

 

[Usine à gaz]

Bonjour sylvanu
Merci pour m'avoir répondu (une fois encore)
C'est nickel. Je te remercie