Merci beaucoup, franchement c'est super sympa...
En fait je mettais la mauvaise orthographe sheet au lieu de sheets.
J'ai juste rajouté cette ligne dans ton code de la première version et j'arrive exactement à ce que je veux.
Private Sub CommandButton1_Click()
Sheets("Données").Select
Selection.AutoFilter Field:=1, Criteria1:="Ecole A"
Vous êtes géniaux...
Alors si ça ne vous embête pas, je vous demanderai encore pas mal d'autres choses..