Bonjour à tous,

Avec l'aide de ce forum, j'ai pu mettre en place ce code qui me permet de trier un tableau structuré. Réalisée avec l'enregistreur de macros.
Je souhaiterai qu'avant le tri la cellule A13 soit sélectionnée et également après le tri.
J'ai essayé avec : .Range("A13").select mais j'ai un message d'erreur "L'objet range à échoué"
Le tri se fait sur la zone du tableau nommé "TabGen".
Je ne sais plus comment faire, merci par avance pour votre aide
Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub Trier()
 
    ActiveWorkbook.Worksheets("Général").ListObjects("TabGen").Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("Général").ListObjects("TabGen").Sort.SortFields.Add _
        Key:=Range("TabGen[Où]"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Général").ListObjects("TabGen").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
End Sub