Méthode range globale a échoué

Sub Macro1()
'
' Macro1 Macro
'

'

  ActiveSheet.Name = "Données"
  
    With ActiveSheet.UsedRange
    ActiveSheet.Rows(.Row + .Rows.Count - 1).Delete
  End With
    With ActiveSheet.UsedRange
    ActiveSheet.Rows(.Row + .Rows.Count - 1).Delete
  End With
        
     Dim derLig As Long
     derLig = Sheets("Données").Range("A" & Sheets("Données").Rows.Count).End(xlUp).Row
    
   Range("A7:C" & derLig).Select
    ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmoothNoMarkers).Select
    ActiveChart.SetSourceData Source:=Range("x!$A$7:$C$" & derLig)
    ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Graphique chauffe"

    ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
    ActiveChart.SetElement (msoElementPrimaryValueAxisTitleAdjacentToAxis)
    Selection.Caption = "Température en °C"
    ActiveChart.Axes(xlCategory).AxisTitle.Select
    Selection.Caption = "Temps en MM:SS,C"
    ActiveChart.ChartTitle.Select
    Selection.Caption = "Température en fonction du temps"
    ActiveChart.Axes(xlCategory).MajorUnit = 0.00018

End Sub

    ActiveChart.SetSourceData Source:=Range("x!$A$7:$C$" & derLig)