Option Explicit
Private Sub Chart_Activate()
Dim T() As Variant, L As Long, S As Long, Sér As Series, LDéb As Long, Plage As Range
'T = Feuil1.Range("A2:G" & Feuil1.Cells(65526, 1).End(xlUp).Row).Value
For Each Sér In Me.SeriesCollection: Sér.Delete: Next Sér
T = Feuil1.UsedRange.Value
L = 2
Do
Rem Début Série
S = S + 1
LDéb = L
Do
L = L + 1: If L > UBound(T) Then Exit Do
Loop Until T(L, 2) <> T(LDéb, 2)
Rem Fin Série
Set Plage = Feuil1.Rows(LDéb).Resize(L - LDéb)
Set Sér = Me.SeriesCollection.NewSeries
Sér.ChartType = xlXYScatterLines
Sér.Formula = "=SERIES(""" & T(LDéb, 2) & """," & Plage.Columns(5).Address(True, True, xlA1, True) _
& "," & Plage.Columns(6).Address(True, True, xlA1, True) & "," & S & ")"
' Sér.XValues = Plage.Columns(5) ' "=" & Plage.Columns(5).Address(True, True, xlR1C1, True)
' Sér.Values = Plage.Columns(6) 'Feuil1.Cells(LDéb, "F").Resize(L - LDéb)
' Sér.Name = T(LDéb, 2)
Loop Until L > UBound(T)
End Sub