Erreur :La méthode 'Range' de l objet'_Global' a échoué

Bonjour

Dans un fichier , ce code ci dessous ne fonctionne plus sans que je sache pourquoi ??

J'ai le message d'erreur suivant :

La méthode 'Range' de l objet'_Global' a échoué

Merci pour l'aide et bonne journée

T

[code]Sheets("HA").Select

ActiveWorkbook.Worksheets("HA").ListObjects("Tableau4").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("HA").ListObjects("Tableau4").Sort.SortFields.Add( _

Range("Tableau4[SECTION]"), xlSortOnCellColor, xlAscending, , xlSortNormal). _

SortOnValue.Color = RGB(191, 191, 191)

/code]

Bonjour,

N'ayant que peu de connaissance en VBA je ne peut pas vraiment aider, néanmoins je vois qu'il y a deux virgules qui ce suivent, je sais que parfois ça bug pour pas grand chose alors je me dit que peut être ...

Range("Tableau4[SECTION]"), xlSortOnCellColor, xlAscending, , xlSortNormal).

Bonjour

Merci pour la réponse mais ça ne change rien.

Le bug serait au niveau de

ActiveWorkbook.Worksheets("HA").ListObjects("Tableau4").Sort.SortFields.Add( _

Cette ligne est mise en sur brillance grise (pas jaune comme souvent)

Je continue à chercher et essayer de trouver, moins sur !

Ci joint la capture d'écran de l'erreur

Bonjour,

Un début de réponse à étudier.

Cdlt.

Public Sub Sort_Data()
Dim lo As ListObject
    Set lo = ThisWorkbook.Worksheets("HA").ListObjects("Tableau4")
    With lo
        .SortFields.Add _
                (.ListColumns("Section").DataBodyRange, _
                 SortOn:=xlSortOnCellColor).SortOnValue.Color = RGB(191, 191, 191)
        .Sort.Apply
        .Sort.SortFields.Clear
    End With
    Set lo = Nothing
End Sub