Salut Mehdi,
Voici une macro qui va répondre à ta question, je l'espère :
Sub DecalSelection()
With Selection
Range(Cells(.Row, .Column + 1), Cells(.Row + .Rows.Count - 1, .Column + .Columns.Count)).Select
End With
End Sub
La macro déplace la sélection d'une colonne vers la droite.
Ce code est à placer dans un module et, pour qu'il soit facile à utiliser, tu peux lui affecter une combinaison de touches raccourci, CTRL D, par exemple.
A+
Horatio