- Je remercie ceux qui aurait commencé à chercher mais j'ai trouvé.
Je m'explique.
J'ai remplacé ma formule:
Range("A1",Range("H1").End(xlDown)).Select
Selection.SortKey1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCUstom:=1,MatchCase:=False, Orientation:=xlTopToBottom
par:
Range("A1",Range("H1").End(xlDown)).Select
Selection.SortKey1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
OrderCUstom:=1,MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Merci quand même, JB.