macro avec Activesheet.shapes

[Goose]

Bonjour,
j'aimerai savoir comment, en fonction de la position d'un bouton d'une macro, sélectionner les quatre cellules plus hautes ?
j'ai lu qu'on pouvez utiliser Activesheet.shapes(Application.Caller) ?

Merci d'avance

 

[Goose]

Merci Pierre ,
étant novice en VBA, comment mettre cette macro en forme pour sélectionner 4 cellules plus hautes ?

 

[Goose]

Nickel Pierre merci encore !!

 

[Goose]

dernière chose, comment sélectionner en même temps la 4ème cellule et 6ème cellule ?
cela ne fonctionne pas avec:
Sub Bouton1_Cliquer()
ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(-4, 0).Select
ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(-6, 0).Select
End Sub

 

[Goose]

Excellent merci pour tous !!

 

[Goose]

Dans l'euphorie j'allais oublier !!
peux t'on faire un mixte des deux formules pour obtenir une selection de cellules décalé ?
du style (A1:B6, D1:E6) ?

 

[Goose]

Merci t'es un chef !!