Décaller d'une colonne la selection

[PFM]

Avec cette macro je peux selectionner une zone de plusieurs colonnes et lignes.
Cependant je souhaiterais décaller d'une colonne à gauche cette selection.
Amitiés
PFM
La macro de selection :
Sub Selectionner()
'
' Selectionner Macro
' Macro enregistrée le 06/08/2003 par Pierre Frédéric MERLE
'
' Touche de raccourci du clavier: Ctrl+Maj+S
'
RN = ActiveCell.Row
CN = ActiveCell.Column
If Not IsEmpty(Selection.Offset(1, 0).Range("A1").Value) Then Selection.End(xlDown).Select
If Not IsEmpty(Selection.Offset(0, 1).Range("A1").Value) Then Selection.End(xlToRight).Select
Application.GoTo Reference:="R" & RN & "C" & CN & ":RC"
End Sub

 

[Jon_Chninkel]

est-ce que ceci fait l'affaire ?
Selection.Cut Selection.Offset(, 1)

 

[PFM]

C'est parfait, j'ai pris.
Merci à Jon qui m'a bien aidé.

Amitiés
PFM