Problème de macro

Bonjour à tous,

J'ai un problème avec une macro et je ne sais pas pourquoi ça ne marche pas alors si vous avez une idée.

Sub Graphique()
'
' Graphique Macro
' Macro enregistrée le 02/05/2011 par Administrateur
'

'
Range("B7").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("Tableau de résultats").Range( _
"B7:G38"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Annexe 2"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = _
"Annexe 2: Représentation graphique des mesures enregistrées pendant la période de stabilisation"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub

Merci d'avance