image.jpg
a = 13 'ligne 13
b = 14 'ligne 14... .. .
c2012 = 23 'colonne Y ....
'--------------------
For i = 1 To Count
Range(Cells((a + (i * 69)), c2012), Cells((b + (i * 69)), c2012)).Select
Selection.Copy
Cells(a + (i * 69), cdec11).Select
' ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False '
Next i
....
J'écris cette formule dans mon module une dixaine de fois
..
.
For i = 1 To Count
Range(Cells((x + (i * 69)), c2012), Cells((y + (i * 69)), c2012)).Select
Selection.Copy
Cells(x + (i * 69), cdec11).Select
' ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False '
Next i
Ensuite je change les années. 2012 qui se re-copiait en dec-11 deviens 2013 qui se copie en 2012
For i = 1 To Count
Range(Cells((x + (i * 69)), c2013), Cells((y + (i * 69)), c2013)).Select
Selection.Copy
Cells(x + (i * 69), c2012).Select
' ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False '
Next i