Copie d'onglet

Bonjour à tous,
je souhaite mettre une petite macro pour automatiser la copie et l'export d'un onglet vers une nouvelle feuille excel.. ca c'est tout bête, Mais comment faire pour que cette unique macro puisse copier l'onglet sur lequel je suis ?

Voila ce que j'ai :

Sub Exporter()
'
' Exporter Macro
' Macro enregistrée le 21/10/2008 par STAGRM
'
' Touche de raccourci du clavier: Ctrl+e
'
ActiveWindow.Visible = False
Windows("RIH-Paris v3.xls").Activate
Sheets("Onglet1").Select
Sheets("Onglet1").Copy
Application.Left = 16.75
Application.Top = -4.25
Windows("RIH-Paris v3.xls").Activate
End Sub


====>>>> Sauf que si je suis sur l'onglet 2 ben évidemment ca ne marche pas ! On est obligé de créer une macro par onglet ? C'est nul ca !

Merci du coup de main