Ce code doit décaler le contenu des cellules vers la droite :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub decaler()
'Dim Range As Cells
Range("V1:BA1").Select
Selection.Cut
Range("W1:BB1").Paste
End Sub
"Propriété ou méthode non gérée par cet objet". Merci d'avance, pour ce petit code