problème de création de graphique

avec le code suivant il n'y à pas de problème ('Export est le nom de la feuille):

Charts.Add
ActiveChart.ChartType = xlXYScatterLines
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries

ActiveChart.SeriesCollection(1).XValues = '=Export!C1'
ActiveChart.SeriesCollection(1).Values = '=Export!C3'
ActiveChart.SeriesCollection(1).Name = '=Export!R1C2'
ActiveChart.SeriesCollection(2).XValues = '=Export!C4'
ActiveChart.SeriesCollection(2).Values = '=Export!C6'
ActiveChart.SeriesCollection(2).Name = '=Export!R1C5'
ActiveChart.SeriesCollection(3).XValues = '=Export!C7'
ActiveChart.SeriesCollection(3).Values = '=Export!C9'
ActiveChart.SeriesCollection(3).Name = '=Export!R1C8'

mais dés que je rajoute la mise en forme suivante, plus rien ne marche (il plante sur la 3ème ligne et les autres si je l'enlève) :

'mise en forme du tableau
m = n = o = 0
For i = 1 To nbligne
m = 4 * i - 2
ActiveSheet.Range('A' & m & ':C' & m).Select
Selection.Cut Destination:=ActiveSheet.Range('D' & i & ': F' & i)
n = 4 * i - 1
ActiveSheet.Range('A' & n & ':C' & n).Select
Selection.Cut Destination:=ActiveSheet.Range('G' & i & ': I' & i)
o = 4 * i
ActiveSheet.Range('A' & o & ':C' & o).Select
Selection.Cut Destination:=ActiveSheet.Range('J' & i & ': L' & i)
Next
ActiveSheet.Columns('A:C').Delete
ActiveSheet.Columns('A:I').EntireColumn.AutoFit
ActiveSheet.Columns('A:A').Select
Selection.NumberFormat = 'd/m/yy h:mm'
ActiveSheet.Columns('D').Select
Selection.NumberFormat = 'd/m/yy h:mm'
ActiveSheet.Columns('G:G').Select
Selection.NumberFormat = 'd/m/yy h:mm'

merci d'avance (je sais c'est un peu long!)