[COLOR="DarkSlateGray"][B]Sub toto()
Dim lstP, nLstP&
lstP = Array("VD0", "VD1", "VD2", "VD3", "VD4", "VD5", "VD6", "VD7", "VD8", "VD9")
With Application
.AddCustomList ListArray:=lstP
nLstP = .CustomListCount + 1
On Error Resume Next
Selection.Sort Key1:=Selection.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=nLstP, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
On Error GoTo 0
.DeleteCustomList nLstP - 1
End With
End Sub[/B][/COLOR]