Copier avec VBA une cellule non vide

Bonsoir,
Je voudrais intégrer un code pour recopier une cellule non vide dans une autre colonne.

Code:

---

1 2 3 4 5 6 7 8

Sub Macro3()   Range("E2:E34").Select If Cells <> "" Then Selection.copy .Offset(0, 3) Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub

---

Mais ça ne marche pas...
Qui peut m'aider???
EAU24

Il y a sans doute beaucoup plus élégant à proposer mais pas le temps de chercher :

Code:

---

1 2 3 4

Dim CC as Range For Each CC In Range("E2:E34") If CC.Value <> "" Then CC.Offset(0, 3).Value = CC.Value Next CC

---

Merci à Ménhir.