Sub test()
Dim fin As Integer
Dim colonne As Integer
'dans l'autre sens ;)
fin = [IV1].End(xlToLeft).Column
For colonne = 1 To fin
If Cells(1, colonne) = "REF" Then
Cells(1, colonne).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range(Selection), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
Next colonne
End Sub
Cells(1, 1).Select
fin = Range("a1").End(xlToRight).Column
For colonne = 1 To fin
Cells(1, colonne).Select
If Selection = "REF" Then
Cells(1, colonne).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range(Selection), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
Next colonne
[IV1].End(xlToLeft).Column