[XL-MAC 2016] Source de données pour un graphique

Bonjour!

J'ai un soucis majeur sur VBA, et après avoir éplucher tous les forums et toutes aides je vous pose la question parce que je n'y arrive pas!!!

J'ai un énorme tableau de données filtré, et je souhaite pouvoir automatiser la création d'un graphique nuage de points dans une nouvelle feuille avec seulement un groupe de données!!

Voici mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 Sub TEST() 'Selection de la feuille avec le tableau de données Worksheets("data").Select 'Selection de la ligne avec les filtres Range("A1:J1").Select 'Selection des bons filtres selection.AutoFilter field:=4, Criteria1:="30 minute cooking class" selection.AutoFilter field:=6, Criteria1:=Array( _ "12:00:00", "12:30:00", "13:00:00", "13:30:00", "14:00:00"), Operator:=xlFilterValues 'Selection de la colonne que je veux analyser Range(Range("I2"), Range("I2").End(xlDown)).Select 'Création d'une nouvelle feuille Sheets.Add ActiveSheet.Name = ("TEST") 'Création du nuage de points avec les sources de données que je viens de filtrer ActiveSheet.Shapes.AddChart.Select ActiveChart.SetSourceData Source:=Sheets("Data").Range(Range("I2"), Range("I2").End(xlDown)) ActiveChart.ChartType = xlXYScatter End Sub
Mon veritable soucis est par rapport à la source de mon graphique, je ne sais pas comment faire, j'ai toujours un message d'erreur!

Merci d'avance pour votre aide, je débute un peu sur VBA !!