Sub test() ' tri sur feuille non active
Dim F2 As Worksheet, NbCol As Byte, Plage As Range, DerCel As Range
Set F2 = Sheets("Data1") 'affectation à la variable F2 du nom de la feuille à traiter
NbCol = F2.Cells(1, 1).End(xlToRight).Column 'Dernière colonne du tableau (Variable suivant la feuille)
Set DerCel = F2.Range("A2").End(xlDown).Offset(0, NbCol) 'Dernière cellule à droite du tableau(ne doit pas être vide)
Set Plage = F2.Range("A1", DerCel)
Plage.Sort Key1:=F2.Range("A2"), Order1:=xlAscending, Header:=xlGuess
End Sub
/code
Merci et bonne soirée