Bonjour à tous,

J'ai pour mission dans le cadre de mon stage d'assurer la portabilité d'un programme en VBA de Excel 2003 à Excel 2010
A l'exécution, le programme plante sur ces lignes :

ActiveChart.SeriesCollection(Courbe).XValues = "=Synthèse_2!R" & 99 + Courbe * 2 + 200 * (t - 1) & "C2:R" & 99 + Courbe * 2 + 200 * (t - 1) & "C" & Sheets("Synthèse_2").Cells(99 + Courbe * 2, 1).Value + 1

ActiveChart.SeriesCollection(Courbe).Values = "=Synthèse_2!R" & 100 + Courbe * 2 + 200 * (t - 1) & "C2:R" & 100 + Courbe * 2 + 200 * (t - 1) & "C" & Sheets("Synthèse_2").Cells(99 + Courbe * 2, 1).Value + 1

ActiveChart.SeriesCollection(Courbe).Name = "=Synthèse_2!R" & 100 + Courbe * 2 + 200 * (t - 1) & "C1:"

Je ne peux malheureusement pas fournir de fichier joint car cela m'est interdit . Sous Excel 2003 le programme arrive bien à aller chercher dans les cellules concernées les valeurs. J'ai vu que je pouvais utiliser la fonction Offset mais étant peu expérimenté en VBA, je m'en remet à votre aide.