Sub FeuilleActive()
' Macro enregistrée le 15/11/2007 par Excel-lent
' A placer au début de ta macro
Dim FeuilleUtilisateur As Variant
FeuilleUtilisateur = ActiveSheet.Name
' Mettre ici ta macro
' Mettre les 2 lignes ci-dessous à la fin de ta macro
Sheets(FeuilleUtilisateur).Activate
End Sub