Bonjour Jean Michel
A la première question, tu peux utiliser la macro suivante:
Sub trier()
ActiveSheet.UsedRange.Sort Key1:=Range("B2"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
A la seconde question tu peux essayer les macros :
1- Le code suivant placé dans un module normal :
Sub Filtrer()
With Sheets("Base (2)")
.Range("A1:C8").AutoFilter
End With
End Sub
2- Dans le module de feuille le code suivant :
Private Sub Worksheet_Activate()
Filtrer
End Sub
Cordialement
CBernardT