Sub reseaux_retour_station()
' Macro enregistrée le 03/10/2009
' Efface tous la selection et retour au plan
[COLOR=red] Application.EnableEvents = False
[/COLOR] Range("A1:P102").Select
Selection.Interior.ColorIndex = xlNone
Range("A1").Select
Sheets("STATION").Select
Range("A1").Select
[COLOR=red] Application.EnableEvents = True
[/COLOR]End Sub