XL 2013 Corriger mes codes

    ' Trier le tableau selon la colonne B
    Plage.Sort Key1:=[B6], Order1:=xlAscending, Header:=xlNo

Sub Tri()
'tri tout le tablea Sans changer l'ordreude la collonne A
    Dim ws As Worksheet
    Dim LastRow As Long
    Dim Plage As Range
    ' Définir la feuille de travail
    Set ws = ThisWorkbook.Sheets("DATA")
    ' Dernière ligne de la colonne B (pour détecter la fin du tableau)
    LastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    ' Définir la plage à trier (de A6 à W dernière ligne)
    Set Plage = ws.Range("A6:W" & LastRow)
    ' Trier le tableau selon la colonne B
    Plage.Sort Key1:=[B6], Order1:=xlAscending, Header:=xlNo
    ' Message de fin
    MsgBox "Tri terminé avec succès !", vbInformation
End Sub

Avec la colonne A :   
    Set Plage = ws.Range("A6:W" & LastRow)
Sans la colonne A :   
    Set Plage = ws.Range("B6:W" & LastRow)