Sub macrotest ()
méthode Copy
Worksheets ('base').Range ('A6:A1647).Copy
With Sheets ('SAISIE QUANTITE')
Application.ScreenUpdating = False
.Columns ('B: B').EntireColumn.Hidden = False
.Range ('B6:B1647').Select
ActiveSheet.Paste
End With
Selection.Sort Key1:=Range ('b6'), Order1:=xlAscending, Header: =xlGuess, _
OrderCustom: =1, MatchCase: =False, Orientation: =xlTopToBottom
Selection.EntireColumn.Hidden = True
Application.ScreenUpdating = True
End Sub