Merci sabV de ta réponse, mais ce n'est pas à ce niveau que ça coince.
Bonjour retraite8,
j'ai la solution :
au lieu de
pos=9 ' pour pouvoir modifier plus tard la colonne en une fois
Range(cells(2, pos+1), cells(57, pos+1)).Select
ActiveWorkbook.Worksheets("Liste").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Liste").Sort.SortFields.Add Key:=Range(cells(2, pos+1)), _ ICI CA COINCE !
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Liste").Sort
.SetRange Range(cells(2, pos+1), cells(57, pos+1))
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
il faut juste que j'écrive :
pos=9 ' pour pouvoir modifier plus tard la colonne en une fois
Range(cells(2, pos+1), cells(57, pos+1)).Select
ActiveWorkbook.Worksheets("Liste").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Liste").Sort.SortFields.Add Key:=cells(2, pos+1), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Liste").Sort
.SetRange Range(cells(2, pos+1), cells(57, pos+1))
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
et là ça marche sans erreur !
merci à tous
C'est résolu !