Range("I1").Select
Selection.End(xlDown).Offset(0, 0).Select
a = ActiveCell.Row 'Définition nbre lignes
'Tri croissant codes concatener
ActiveWorkbook.Worksheets("journaux_banque").Sort.SortFields.Add Key:=Range( _
"I2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("journaux_banque").Sort
.SetRange Range("A" & 2, "I" & a)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With