cool !
j'ai trouvé tout seul comme un grand
(trop content !)
Ma pomme je te confirme que le tri sur colonne fusionnées fonctionne bien
ci-dessous mon code
Sub crewchrono()
'
' tri des embarquants / débarquants par date de vol
'
'
Range("B21:AB30").Select
ActiveWorkbook.Worksheets("Crew change").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Crew change").Sort.SortFields.Add Key:=Range("N21:N30"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Crew change").Sort.SortFields.Add Key:=Range("P21
30"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Crew change").Sort
.SetRange Range("B21:AB30")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B35:AB44").Select
ActiveWorkbook.Worksheets("Crew change").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Crew change").Sort.SortFields.Add Key:=Range("N35:N44"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Crew change").Sort.SortFields.Add Key:=Range("P35
44"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Crew change").Sort
.SetRange Range("B35:AB44")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
merci
seb