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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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