XL 2013 Macro décale d'une colonne

[candido57]

Bonjour,
j'ai une macro pour faire une tri de colonne , mais cette dernière commence le tri à partir de la colonne A1 au lieu de la colonne B1.
Pouvez vous m'aider pour cette macro ci dessous?
Ce que je ne comprend pas, c'est que , j'ai la même macro dans un autre fichier et ça fonctionne très bien.
Merci

Sub Triage_Personnes()
With ActiveWorkbook.Worksheets("Triage").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("B1:AM1"), SortOn:=xlSortOnValues, _
CustomOrder:="Numéro de carte,Famille,Prénom,Jours et heures de passage", DataOption:=xlSortNormal
.SetRange [B1].CurrentRegion
.Header = xlYes
.MatchCase = False
.Orientation = xlLeftToRight
.Apply
End With
Worksheets("Triage").Sort.SortFields.Clear

Worksheets("Triage").UsedRange.Sort Key1:=Range("B1"), Header:=xlYes, _
Order1:=xlAscending, Order2:=xlDescending

End Sub

 

[candido57]

Bonjour,
j'ai une macro pour faire une tri de colonne , mais cette dernière commence le tri à partir de la colonne A1 au lieu de la colonne B1.
Pouvez vous m'aider pour cette macro ci dessous?
Ce que je ne comprend pas, c'est que , j'ai la même macro dans un autre fichier et ça fonctionne très bien.
Merci

Sub Triage_Personnes()
With ActiveWorkbook.Worksheets("Triage").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("B1:AM1"), SortOn:=xlSortOnValues, _
CustomOrder:="Numéro de carte,Famille,Prénom,Jours et heures de passage", DataOption:=xlSortNormal
.SetRange [B1].CurrentRegion
.Header = xlYes
.MatchCase = False
.Orientation = xlLeftToRight
.Apply
End With
Worksheets("Triage").Sort.SortFields.Clear

Worksheets("Triage").UsedRange.Sort Key1:=Range("B1"), Header:=xlYes, _
Order1:=xlAscending, Order2:=xlDescending

End Sub

Ok j'ai trouvé l'erreur.
Bonne soirée