Macro applicable en différents endroits

Bonjour,

Voici un exemple de ce que je cherche à réaliser(mais plus de 3 fois):

Sub chose1()
Range("B2:E3").Select
Selection.Copy
Range("B5").Select
ActiveSheet.Paste
ActiveSheet.Shapes("Button 4").Select
Selection.Cut
Range("H2").Select
ActiveCell.FormulaR1C1 = "1ère"
End Sub
Sub chose2()
Range("B12:E13").Select
Selection.Copy
Range("B15").Select
ActiveSheet.Paste
ActiveSheet.Shapes("Button 7").Select
Selection.Cut
Range("H12").Select
ActiveCell.FormulaR1C1 = "2ère"
End Sub
Sub chose3()
Range("B22:E23").Select
Selection.Copy
Range("B25").Select
ActiveSheet.Paste
ActiveSheet.Shapes("Button 3").Select
Selection.Cut
Range("H22").Select
ActiveCell.FormulaR1C1 = "3ère"
End Sub

Je pense qu'il doit être possible de l'écrire plus simplement, en utilisant des éléments variables qu'il n'y aurait qu'à préciser à chaque application.
Si quelqu'un peut me faire profiter de ses compétences, je l'en remercie d'avance.

Configuration: Windows XP Internet Explorer 6.0