Macro excel 2007 - fichier source changeant

Bonjour,

tout d'abord veuillez m'excuser pour l'absence d'accents, je suis sur un clavier QWERTY...

je suis actuellement en stage et je cherche a faire des Macros afin de maximiser le temps de gestion de certains projets.

J'aimerais savoir s'il est possible de creer une macro a partir d'un fichier, et de "transferer" cette macro dans un nouveau fichier afin d'obtenir le même resultat (ou similaire).

Le probleme en fait, c'est que les fichiers avec lesquels je travaille changent toutes les semaines. Toutes les donnees ont la même structure, simplememnt de nouvelles lignes se rajoutent.
Si le fichier a la date N est nomme X - N.xls, le suivant sera X - N+1.xls

En gros, serait il possible de produire une macro qui travaille plutot avec une reference sur ActiveSheet plutot que le nom de du fichier en lui meme (genre X-N.xls.Activate)

ci dessous le code que j'ai construit. Il marche bien sur sur la macro actuelle, mais des que je change le nom elle plante...

Merci a tous, et j'espere m'etre fait comprendre. SI e n'est pas le cas dites le moi, et excusez moi, ce n'est que mon premier poste sur le forum ^^

Sub Explanations()
'
' Explanations Macro
'

' Application.ScreenUpdating = False
Windows("X1 - MACROFORMULAS.xls").Activate 'ce fichier est fixe et contient les formules a utiliser pour les macros
Range("AK2").Select
Selection.Copy
Windows("X2- 27JUN2012.xls").Activate
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-12
Application.CutCopyMode = False
ActiveSheet.Range("$A$1:$BC$48559").AutoFilter Field:=36
Columns("AK:AK").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub