macro et nom de feuille

ozzii à dit:

Bonjour le forum,

j'ai cette macro qui se lance à chaque ouverture du fichier:

Code:

Sub TriAuto()
'
' TriAuto Macro
'

'
[COLOR="red"]dim mafeuille as string
mafeuille = activesheet.name[/COLOR]    
Sheets("Donnees").Select
    Columns("B:B").Select
    Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Columns("D:D").Select
    Selection.Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Sheets([COLOR="Red"]mafeuille[/COLOR]).Select
End Sub

Cependant à la place de "Sheets("feuil1").Select" j'aimerais avoir le nom de la dernière feuille utilisée.

Pas trop compliqué (je pense), mais je suis un pur débutant dans ce domaine

Merci par avance.

Cliquez pour agrandir...