Private Sub Worksheet_Activate()
Dim derlig As Long
derlig = Application.Match(Chr(254), [A:A])
' Protection de la feuille (actuellement sans mot de passe)
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, UserInterfaceOnly:=True, AllowFormattingCells:=True, AllowFiltering:=True
With Range("A4:I" & derlig)
' Affichage de toutes les lignes
.EntireRow.Hidden = False
' Tri de toutes les lignes sur la colonne A
.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
' Positionnement du curseur sur le premier libellé
Range("B4").Select
End Sub