Déplacer les cellules non vide d'une colonne

[ZiM]

Bonjour, suite à une série de macro, j'ai un décalage dans la validation de données.

Je doit donc pour chaque cellule pleine en colonne "L" (jusqu'à 2000 c'est bien assez) sélectionner les 7 cellules de gauche puis les couper et les coller dans la 8ème (sois la colonne "D à K".

J'ai essayer déjà :

Sub SelectionNonVides()
'sélectionner 1ere cellule non vide
K = ttestt
For Each c In ActiveCell.CurrentRegion
If c <> "" Then
c.Select
Exit For
End If
Next

' extension sélection
For Each c In ActiveCell.CurrentRegion
If c <> "" Then
Range(ActiveCell, Cells(0, -7)).Select
ActiveCell.Offset(0, -8).PasteSpecial xlPasteAll
End If
Next
End Sub

Et encore ceci ^^

Sub test()
Dim cel As Range
    For Each cel In Target
        'Adapter la/les plages.
        If Not Intersect(cel, Range("L1:L2000")) Is Nothing Then
            Select Case cel.Value
            Range(ActiveCell, ActiveCell.Offset(0, -7)).Activate
            Selection.Cut
            ActiveCell.Offset(0, -8).Select
            Selection.Paste
            End Select
        End If
    Next cel
End Sub

Merci par avance du coup de main ^^

 

[kjin]

Re : Déplacer les cellules non vide d'une colonne

Bonjour,
Un fichier contenant qq lignes et une note d'explication seraient bienvenus...
A+
kjin