bonsoir,
Dans ta macro déclare une variable (créussi par ex) puis attribue à ta variable la valeur de ta cellule gréussi , puis trie en fonction de ta variable créussi
en gros çà dois donner ceci :
Sub NouvelleListe()
Dim créussi as string ' 4 5 es t bien du texte, n'est-ce pas ?
créussi.valu=Gréussi.value ' ou cells(,).value
Selection.AutoFilter Field:=3, Criteria1:=créussi
Range("A4").CurrentRegion.SpecialCells(xlCellTypeVisible).Rows.Copy
Sheets("classe").Select
Range("a4").Select
ActiveSheet.Paste
End Sub