Retour à une cellule (résolu)

Bonsoir le forum,

Comment écrire le code pour retourner à une cellule pré-définie avec ActiveCell.Address ?

Dim Ref As Range

Set Ref = ActiveCell
Range(ActiveCell.Offset(0, -3), ActiveCell).Cut
Range("f2").Select
Do Until ActiveCell = ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste

Ref.Select -----> puisque ma cellule est coupée/collée, ref me retourne dans la colonne I plutôt que de retourné à la colonne D.

Merci