Translation d'une sélection multiple vers la droite

Bonjour,

J'aimerais déplacer des données de ma feuille vers la droite en changeant simplement les colonnes.

Plus précisément, je cherche une macro qui amène les valeurs du range "Depart" aux coordonnées de "Arrivée" avec:

Set Depart = Union( _
Range("I14:AM25"), _
Range("I32:AM37"), _
Range("I41:AM91"), _
Range("I100:AM123"), _
Range("I127:AM141"), _
Range("I148:AM156"), _
Range("I160:AM179"), _
Range("I183:AM196"), _
Range("I201:AM219"))

Set Arrivee = Union( _
Range("AR14:BV25"), _
Range("AR32:BV37"), _
Range("AR41:BV91"), _
Range("AR100:BV123"), _
Range("AR127:BV141"), _
Range("AR148:BV156"), _
Range("AR160:BV179"), _
Range("AR183:BV196"), _
Range("AR201:BV219"))

Pour un fichier source de données pour tester, vous pouvez consulter mon autre post:

https://forum.excel-pratique.com/excel/macro-transfert-des-valeurs-d-une-selection-multiple-t81705.html

Merci à tous

Bonjour Paretoptimal, bonjour le forum,

Peu-être comme ça :

Dim DEP as Range
Dim CEL As Range

Set DEP = Application.Union( _
    Range("I14:AM25"), _
    Range("I32:AM37"), _
    Range("I41:AM91"), _
    Range("I100:AM123"), _
    Range("I127:AM141"), _
    Range("I148:AM156"), _
    Range("I160:AM179"), _
    Range("I183:AM196"), _
    Range("I201:AM219"))
For Each CEL in DEP
   CEL.Offset(0, 35).Value = CEL.Value : CEL.ClearContents
Next CEL 

C'est exactement cela, merci beaucoup ThauThème.

A bientôt sur le forum