Macro pour construction de graphique et boucle for

Bonjour à tous,
J'exécute une macro qui ne marche pas depuis ce matin et j'ai vraiment besoin d'aide.voici de facon simplifiée ce que je souhaite faire.
faire une représentation des séries présentes sur ma feuille "calcul" (colonne en jaune) en fonction de la date( colonne en gris) dans le graphique inséré dans ma feuille "ETF1", de sorte qu'a chaque fois que ma macro effectue un choix dans ma liste déroulante en V8 le graphique se met à jour automatiquement.
J'ai écris le code suivant mais il ne se pase rien:

Sub update6()
Dim S3 As Worksheet
Dim S4 As Worksheet
Dim i, j, j1, j2, k As Long

Set S3 = Sheets("Calcul")
Set S4 = Sheets("ETF 1")

For j = 1039To 1338 Step 6
    S4.Cells(8, 22) = S3.Cells(2, j)
   
    ActiveChart.ChartType = xlLine
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Values = S3.Range(S3.Cells(7, j), S3.Cells(S3.Cells(3, 1039), j))
   ActiveChart.SeriesCollection(1).XValues =S3.Range(S3.Cells(7,1038), S3.Cells(S3.Cells(3, 1038), j))
Next j
End Sub

Private Sub worksheet_change(ByVal Target As Range)
Dim S3, S4 As Worksheet
Set S3 = Sheets("calcul")
Set S4 = Sheets("ETF 1")

    If Target.Address = S4.Cells(8, 22) Then
       
        Call update6
    End If
End Sub

Pourriez - vous m'éclairer svp?
merci de vos réponses