XL 2010 Créer un historique en décalant la copie d'une colonne à chaque fois

[channoyer]

Bonjour,

je souhaiterais créer un historique de valeurs qui se crée à chaque modification de ces valeurs.
Voici la macro que j'ai pour l'instant :

Sub Historique()
Dim Ligne As Long
Ligne = Sheets("Historic").Cells(Rows.Count, 1).End(xlUp).Row + 1
[Feuil1!D4:AB4].Copy
Sheets("Historic").Cells(Ligne, 1).PasteSpecial xlPasteValues, Transpose:=True
End Sub

Mon problème est que l'historique se crée sur une seule colonne alors que je voudrais le décaler d'une colonne à chaque fois.

 

[Chris401]

Bonsoir

Sub Historique()
Dim col As Integer
With Sheets("Historic")
col = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1
[Feuil1!D4:AB4].Copy
.Cells(1, col).PasteSpecial xlPasteValues, Transpose:=True
End With
End Sub

 

[channoyer]

Merci beaucoup, cela fonctionne parfaitement 🙂