[COLOR=blue]Function[/COLOR] FeuillePrécédente()
Application.Volatile
[COLOR=blue]If[/COLOR] [COLOR=blue]Not[/COLOR] ActiveSheet.Previous [COLOR=blue]Is[/COLOR] [COLOR=blue]Nothing[/COLOR] [COLOR=blue]Then[/COLOR]
FeuillePrécédente = [I]"'"[/I] & ActiveSheet.Previous.Name & [I]"'!"[/I]
[COLOR=blue]Else[/COLOR]
[COLOR=green]'Renvoyer l'erreur NA[/COLOR]
FeuillePrécédente = CVErr(xlErrNA)
[COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]Function[/COLOR]