Finalement, je m'en suis sorti avec :
ShellTreeView1.Selected.Expand(False);
Test:=ShellTreeView1.Selected.GetFirstChild;
While Test.Text <> ShellListView1.SelectedFolder.DisplayName do
Test:=ShellTreeView1.Selected.GetNextChild(Test);
Test.Selected:=True;