Comment utiliser le "Active Sheet" du VBA sur Excel ?

Bonjour,

Je sais que de nombreux postes ont déjà été posté a ce sujet, donc je m'excuse du désagrément, mais je n'arrive toujours pas à utiliser cette fonction..

Mon problème est le suivant :

J'ai crée une macro sur Excel à partir d'un ficher donné, appellons-le "Sheet1".
Il s'agit de faire un simple graph des 2 premieres colonnes.

Seulement dès que j'utilise cette macro sur un autre ficher, cela ne fonctionne pas, et je sais pourquoi, car la macro dépend du ficher d'origine "Sheet1".

J'aimerai qu'on m'explique clairement où modifier le code suivant pour qu'il soit actif dans n'importe quelle ficher excel.

Le code :

Sub Macro1()
'
' Macro1 Macro
'

'
Range("A1:B22").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$B$22")
ActiveSheet.Shapes("Chart 1").IncrementLeft 55.5
ActiveSheet.Shapes("Chart 1").IncrementTop -48.75
Range("N7").Select
End Sub



Merci beaucoup !