Modifier un tri d'Excel 2003 -> 2010

[Yperion]

Bonjour à tous,

Je dois modifier des macros vba 2003 vers 2010 et je dois adapter des tris. (je n'ai pas trop de notion des évolution vba 2010 pour le moment)

Je rencontre la difficultés suivante :
J'enregistre une macro (menu "Développeur") pour faire un tri et quand je l’exécute il me dit que l'indice n'appartient pas à la sélection

    ActiveWorkbook.Worksheets("RESULTAT").ListObjects( _
        "Tableau_Lancer_la_requête_à_partir_de_Excel_Files23").Sort.SortFields.Clear
    
    ActiveWorkbook.Worksheets("RESULTAT").ListObjects( _
        "Tableau_Lancer_la_requête_à_partir_de_Excel_Files23").Sort.SortFields.Add Key _
        :=Range("Tableau_Lancer_la_requête_à_partir_de_Excel_Files23[PRODUIT]"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    
    With ActiveWorkbook.Worksheets("RESULTAT").ListObjects( _
        "Tableau_Lancer_la_requête_à_partir_de_Excel_Files23").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Donc je suppose que ListObjects en est la cause puisqu'il est en dur et qu'il ne doit pas correspondre au moment de l'exec.

Pourriez-vous me dire comment l'adapter pour qu'il soit pris en compte dynamiquement ?

Merci de votre aide

P