De Private Sub CommandButton1_Click() à Private Sub CommandButton40_Click()

bonsoir tout le monde
j ai ces 40 macros qui se suivent !!!
ca fonctionne bien mais c est mal ecrit
pouvez vous me proposer quelque chose de plus court et plus propre du coup ...
merci d'avance pour tout
E et F

Private Sub CommandButton1_Click()
Sheets("Menus2").[a65536].End(xlUp).Cells(2, 1) = CommandButton1.Caption
End Sub

Private Sub CommandButton2_Click()
Sheets("Menus2").[a65536].End(xlUp).Cells(2, 1) = CommandButton2.Caption
End Sub

Private Sub CommandButton3_Click()
Sheets("Menus2").[a65536].End(xlUp).Cells(2, 1) = CommandButton3.Caption
End Sub

Private Sub CommandButton4_Click()
Sheets("Menus2").[a65536].End(xlUp).Cells(2, 1) = CommandButton4.Caption
End Sub