[VBA]décalage de colonne

Bonjour à tous,

j'ai un petiti soucis avec VBA, je m'explique

j'ai un onglet QCM dont je voudrais copier la colonne F dans l'onget Rep à la colonne G (bon bah jusque là pas de pbm ^^) mais ou sa se corse c'est que je voudrais qu'à chaque enregistrement la colonne dans l'onglet rep se décale vers la droite. En gros que le premier enregistrement se fasse dans la colonne G, le 2eme dans la colonne H etc

j'ai essayé avec ce code mais sa marche pas :s

Sub test()

'
Dim dernierecolonne As String

'
Range("F3:F95").Select
Selection.Copy
Sheets("Compilation réponses").Select
Range("G3").Select

Selection.End(xlUp).Select

dernierecolonne = ActiveCell.Column + 1

Range("g" & dernierecolonne).Select

ActiveSheet.Paste
Sheets("QCM").Select

End Sub


quelqu'un pourrait-il m'aider SVP
Merci d'avance