macro graphique

Bonjour,

Voila mon pb:
Dans les colonnes j'ai le nom des pays Colonne A:France /colonne B:Italy
/Colonne C: UK/ ......
En ligne le Chiffres d'affaire par produits en trimestre cumulé. Ex :pour le
produit PS560 CA de Q1( ligne 5)/ Q2(Ligne6) /Q3(ligne7).

J'ai crée une macro qui me permette de visualiser graphiquement l'évolution
de mon CA lorsque je sélectionne les 3 trimestres de mon produits :

Selection.Copy
Sheets("Graph").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("B1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]-R[-1]C[-1]"
Range("B3").Select
ActiveCell.FormulaR1C1 = "=RC[-1]-R[-1]C[-1]"
Range("B1:B3").Select
'Charts.Add
'ActiveChart.ChartType = xlColumnClustered
'ActiveChart.SetSourceData Source:=Sheets("Graph").Range("B1:B3")
'ActiveChart.Location Where:=xlLocationAsObject, Name:="Graph"

'ActiveSheet.Shapes("Graphique 6").ScaleWidth 1.93, msoFalse, _
msoScaleFromBottomRight
'ActiveSheet.Shapes("Graphique 6").ScaleHeight 1.62, msoFalse, _
msoScaleFromBottomRight
'ActiveWindow.Visible = False
'ActiveSheet.ChartObjects("Graphique 6").Activate
'ActiveSheet.Shapes("Graphique 6").IncrementLeft -192.75
'ActiveSheet.Shapes("Graphique 6").IncrementTop 30.75

Je voudrais étendre mes graphiques à tous les pays. Au sens où si je
sélectionne les 3 trimestres pour la France, il me fait le graphique pour la
France mais aussi les graphiques pour italy et uk.
Est il possible de crée une macro qui étend ma première sélection.(
selection +1 colonne).

Merci d'avance
Anaïs