Sub Reaction_ASP()
'****************************************************
' Activation de la feuille " ASP "
Sheets("ASP").Activate
'****************************************************
Sheets("Feuil1").Range("A1:A1000").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("A1"), Unique:=True
Dim Grf As ChartObject
Dim Sh As Worksheet
Set Sh = Sheets("ASP")
'On supprime tous les graphiques
For Each Grf In Sh.ChartObjects
Grf.Delete
Next Grf
'On crée notre graphique
Set Grf = Sh.ChartObjects.Add(140, 10, 500, 300)
Grf.Name = "Reaction Time"
With ActiveSheet.Shapes("Reaction Time")
.Left = Range("F5").Left
.Top = Range("F5").Top
End With
With Grf.Chart
.ChartType = xlLineMarkers
.SeriesCollection.NewSeries
With .SeriesCollection(1)
.Values = Sh.Range("D2
" & [A65536].End(xlUp).Row)
.XValues = Sh.Range("B2:B" & [A65536].End(xlUp).Row)
End With
.PlotVisibleOnly = False
End With
Set Grf = Nothing
Set Sh = Nothing
End Sub