Mise à jour source de données d'un graphique

Bonjour,

Je souhaite mettre à jour dynamiquement la zone de données d'un graphique par macro mais la macro plante sur la définition de la zone

Une idée ? merci d'avance

Dim Mysheet As Variant
Set Mysheet = Worksheets('Responsable')
Mysheet.Activate
Dim volRange As Variant
Set volRange = Mysheet.Range(Cells(ln, cl - 1), Cells(lnX + 1, cl))
Worksheets('Theme').Activate
ActiveSheet.Chart.ChartArea.Select
ActiveSheet.Chart.SetSourceData Source:=volRange, PlotBy:=xlColumns
ActiveSheet.Chart.Refresh
Set volRange = Nothing
Set Mysheet = Nothing