Salut,
Voilà quelque ligne qui devrait t ' êtres utile :
For i = 1 To Sheets.Count 'Compte le nombre de feuilles de ton classeur
Sheets("X" ).Select 'X=Le nom de ta feuille
Sheets("X" ).Move After:=Sheets(i) 'Déplace la feuille X après la dernière feuille comptée.
Next i