Aide pour macro (déplacer une cellule)

[stefou]

Bonjour, je voudrais crée une macro destinée à copié une cellule sélectionnée dans une autre cellule.
Mon idée était d'enregistrer une macro avec,
copier "la cellule active"
déplacé avec "Tabulation ou flèche à droite" de deux cases
coller
le problème est qu'il place toujours le copier dans la même cellule (celle que la macro à enregistré).
Dans le code on vois bien que "Tab" ou "flèche droit" est pas renseigné il donne la cellule finale.
Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 28/05/2010 par stephan
'
' Touche de raccourci du clavier: Ctrl+w
'
Selection.Copy
Range("D8").Select <--- LE PROBLèME EST ICI
ActiveSheet.Paste
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Merci de m'aporté votre aide

 

[pierrejean]

Re : Aide pour macro (déplacer une cellule)

bonjour stephane

Teste

Sub deplace
 Selection.Offset(0,2)=Selection.value
End sub

 

[stefou]

Re : Aide pour macro (déplacer une cellule)

Merci ca fonctionne