Macro Excel Range.select

Hello,

Je suis nul sur VBA et je cherche à déplacer le contenu des cellules vers d'autres.B2 vers C1, A2 vers B1, B4 vers C3, A4 vers B3 ainsi de suite jusqu'à la ligne 8200.

Le souci est que ma base de donnée contient environ 8200 lignes donc c'est un peut la galère de déplacer à la main

Auriez vous un bout de code pour faire cela ?

PS: Le souci est de ne pas déplacer les cellules vides afin de ne pas modifier les descriptions en place.

Merci d'avance

Bonjour,

Essaie ce petit code à placer dans un module en VBA

Sub test()
Macro Dan
For i = 2 To 8200 Step 2
    Cells(i - 1, 2) = Range("A" & i): Range("A" & i).ClearContents
    Cells(i - 1, 3) = Range("B" & i): Range("B" & i).ClearContents
Next
End Sub

Si ok, clique sur le V vert à coté du bouton EDITER pour cloturer le fil

Amicalement

Génial

Un GRAND MERCI