macro a l'ouvertute d'une feuille

Private Sub Worksheet_Activate()
Dim Source As Range
Dim Cible As Range
With Worksheets('base')
Set Source = .Range('a6:a' & .Range('A65536').End(xlUp).Row)
Set Cible = Worksheets('saisie quantite').Range('B5:B' & source.Rows.Count + 4)
End With
Application.ScreenUpdating = False
With Worksheets('saisie quantite')
'.Columns('B:B').EntireColumn.Hidden = False

Cible = Source.Value
.Range('B5:B' & Range('B5').End(xlDown).Row).Sort Key1:=.Range('B5'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
.Columns('B:B').EntireColumn.Hidden = True
End With
Worksheets('base').Select
Application.ScreenUpdating = True
End Sub

Cliquez pour agrandir...