Macro "copier" universelle

[kawa]

Bonjour le forum,

j'ai besoin de copier le contenue de certaines cellules. Pour cela j'ai un bouton en B1 qui recopie le contenue de A1, en B2 qui recopie A2, etc...sur environ 80 lignes, et cela sur 3 feuilles différentes.
Cela me fait donc 240 macros de ce type :
Sub CopyA1()
Range('A1').Select
ActiveSheet.OLEObjects('Objet 149').Verb
Selection.Copy
End Sub
Est il possible de créer une seule macro 'universelle' qui copierait le contenue de la cellule placée à sa gauche et ce qq soit sa place dans le classeur ?
Cela allégerait mon fichier et serait plus élégant.

Merci

 

[ChTi160]

Salut Kawa
peut ^tre un truc dans ce gout la

Sub CopierCelluleGauche()
With ActiveSheet
          .Shapes(Application.Caller).BottomRightCell.Offset(0, 1).Resize(2, 2).Copy
          .OLEObjects('Objet 8').Verb
End With
End Sub

 

[kawa]

c'est exactement ça ! :woohoo:

je n'ai plus qu'à adapter cela à mon projet.

Un grand merci à vous deux, ChTi160 et myDearFriend!

A+
Kawa