Ok super, je vois mais encore une question :
J'ai créé la macro et j'ai collé ton code ainsi (en rouge) :
Sub AffichageEleves()
'
' AffichageEleves Macro
'
'
Range("B8").Select
ActiveWindow.FreezePanes = True
Private Sub Worksheet_Activate()
'là ta macro de mise en forme
End Sub
Pour l'instant ça ne marche pas encore, peut-être ai-je collé ton code au mauvais endroit