Macro décalage 1 cellule sur 2

Bonsoir,

j'ai récupéré un tableau de données suivant l'exemple ci dessous :

A B C

1 5

2 a

3 9

4 d

Je souhaiterai décaler les cellules B2 (a) et B4 (d) en respectivement C2 et C3.

Vu que j'ai plusieurs centaines de lignes suivant ce même principe, j'aimerai savoir si quelqu'un connait une macro pour faire cette manipulation de façon automatisée.

Je vous remercie par avance pour votre aide.

Cdt,

LM

Bonsoir et bienvenue

L'image jointe ne correspond pas à l énoncé.

Merci de joindre une feuille avec ce que tu as et dessous, manuellement, ce que tu veux.

Comment Joindre Un Fichier

Amicalement

Nad

Bonsoir,

Un début de piste :

Sub Decaler()

    Dim I As Integer
    Dim J As Integer

    'parcour la colonne B une cellule sur deux
    'et la décale en colonne C les unes à la suite des autres
    For I = 2 To [B65536].End(xlUp).Row Step 2
        J = J + 1
        Range("B" & I).Cut Range("C" & J)
    Next I

End Sub

Hervé.