VBA:augmenter la zone de donnee d'un graphe

Bonjour,
j'essaye de faire augmenter la zone de donnée d'un graphe automatiquement en fonction du mois lors de l'execution de la macro
j'ai essayée ceci mais sans resultat:
Sub Macro1()
Dim D As Date
Dim R As Integer
Dim L As String
D = Date
R = DatePart("m", D)
R = R - 1
Select Case R

Case 1

L = C8
Case 2

L = D8
Case 3

L = E8
Case 4

L = F8
Case 5

L = G8
Case 6

L = H8
Case 7

L = I8
Case 8

L = J8

Case 9

L = K8
Case 10

L = L8
Case 11

L = M8
Case 12

L = N8

End Select

'test=14
Worksheets("Telephonie").Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("Telephonie").Range("B3:" & L), _
PlotBy:=xlRows
End Sub

cette requete mr envoie un code erreur.
Merci d'avance