J'ai un tableau récapitulant diverses données de chaque semaine. Toutes les semaines, il faut rajouter une colonne pour la dernière semaine écoulée. Les données de cette colonne sont issues d'autres tableaux.  J'ai donc créer une macros qui me permet de copier/coller la dernière colonne utilisée (les formules sont incrémenter d'un rang) et je fige la semaine précédente en la copiant et "collage spécial", "valeurs".
Cependant, mon problème provient du fait que dans le tableau d'origine, les données sont sous forme de colonne, mais chaque colonne est espacée de 2 colonnes. Lorsque j'utilise ma macros, la recopie est donc erronée : l'incrémentation se fait bien d'une colonne à l'autre, mais l'incrémentation des formules se fait également d'1 rang, au lieu de 3.
 
Voici ma macros :
 
Sub passer_a_nouvelsem2()
 
Dim dercol As Byte
Dim col As Range
'dernière colonne utilisée
dercol = Range("AH142" ).End(xlToLeft).Column
'plage de la dernière semaine
Set col = Range(Cells(142, dercol), Cells(227, dercol))
'recopie sur une nouvelle semaine
col.Copy Cells(142, dercol + 3)
'garde que les valeurs dans semaine de départ
With col
.Copy
.PasteSpecial Paste:=xlValues
End With
Set col = Nothing
End Sub
 
 
J'espère que quelqu'un pourra m'aider.