Problème de Tri

re,

voulez-vous les couleurs et bordures dans la 2ième plage ? Alors il faut supprimer le guillemet simple avant le "c.copy"

Sub OldSchool()
     Range("I1:K1").EntireColumn.Clear       'Contents
     Set c = Range("t_data").ListObject.Range

     With c.Offset(, Range("I1").Column - c.Column)
          'c.Copy .Offset(0) 'si vous voulez les couleurs et les bordures, supprimer le ' en face
          .Value = c.Value
          .Sort key1:=.Range("B1"), order1:=xlDescending, key2:=.Range("C1"), order2:=xlAscending, Header:=xlYes
     End With
End Subµ

Parfait BsAlv, Merci pour ton aide.

Patron