Decaler toutes les lignes paires vers la colonne de droite

slt a tous,je cherche une aide en vba pour decaler toutes les lignes paires de ma colonne A vers la colonne B

je pense pas que ce soit tres compliqué mais je galere si une ame charitable peut me faire ce petit code je lui en serais reconnaissant

merci d avance

Bonjour Maxbruver

Voici une possibilité

Sub DecalerLignePaire()
  Dim dLig As Long, Lig As Long
  ' Dernière ligne remplie de la colonne
  dLig = Range("A" & Rows.Count).End(xlUp).Row
  ' Pour chaque ligne paire
  For Lig = 2 To dLig Step 2
    ' Déclaer la cellule vers la droite
    Range("A" & Lig).Insert Shift:=xlToRight
  Next Lig
End Sub

A+

merci au top! ça fonctionne parfaitement